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U ABSTRACT 



THIS PROGRAM CONTAINS A SERIES OF BASIC LOGIC TESTS 
THAT CHECK THE Till FOR PROPER OPERATIOM,, 

2^ REQUIREMENTS 

2tl EQUIPMENT 

PDP'^'li COMPUTER WITH OR WITHOUT HARDWARE SWITCH REGISTER 
WITH CONSOLE TELETYPE^ kW k TAIl CASSETTE 

2«2 STORAGE 

THIS PROGRAM REQUIRES APPROX* 4K STORAGE^ 
2^3 PRELIMINARY PROGRAMS 

MONE 

3^ LOADING PROCEDURE 

USE STANDARD PROCEDURE FOR LOADING ^ABS TAPES 
OR A CASSETTE TAPE^ 

4, STARTING PROCEDURE 

4.1 CONTROL SWITCH SETTINGS 
SEE 5.1. 

4.2 STARTING ADDRESSES 

200 NORMAL STARTING ADDRESS 

204 SELECT DRIVECS) BEFORE STARTING TEST 

210 SELECT DRIVECS) AND ADDRESSES BEFORE STARTII^G TEST 

214 SETUP FOR MANUAL LOOPING 

220 WRITE FILE GAP FROM BOT TO EOT 

224 WRITE CONTINOUS BLOCKS OF DATA 

230 READ COMTINOUS BLOCKS OF DATA 

234 WRITE FILE GAP AED A BLOCK OF DATA 

240 READ BLOCK OF DATA AND INTO A FILE GAP 

244 SPACE FWD FILE GAP FROM BOT TO EOT 

250 BACK SPACE FILE GAPS 

500 LOAD SWITCH REGISTER INTO THE TACS 

600 WRITE SWITCH REGISTER ON TAPE FROM BOT TO EOT 

700 READ FROM BOT TO EOT 



4^3 PROGRAM & OPERATOR ACTION 

U LOAD PROGRAM INTO MEMORY (SEE SECTION 3«) 

2* LOAD A WRITE EWABLED CASSETTE IN BOTH DRIVES 

3^ REWIND BOTH DRIVES 

4^ LOAD ADDRESS 200^ 

5^ SET SWITCHES (SEE SECTION 5^1) 

6« PRESS START« 

7, THE PROGRAM WILL LOOP ^ TT¥ BELL WILL RING ONCE EVERY 

PASS# IF SW<10>ffi0« 
*## NOTES IF USING THE SOFTWARE SWITCH REGISTER 

PROGRAM WILL TYPE «SWR^XXXXXX NEW^** AFTER TYPING 

THE NAME OF THE PROGRAM^ 

4^3«1 DRIVE SELECTION # 

STARTING THE PROGRAM AT 200 WILL RESULT IN AUTOMATIC 
SELECTION OF DRIVES ^A« AWD ^B»^ TO BE TESTED^ 
NOTE? IF LOAD MEDIUM IS CASSETTE WITH STANDARD VECTOR 
PROGRAM WILL RESPOND AS IF STARTED AT 210« 

STARTING THE PROGRAM AT 204i. 210, OR 214 ALLOWS THE OPERATOR % 

TO SELECT THE DRIVE(S) TO BE TESTED, 

THE PROGRAM WILL TYPE ^DRIVE(S)?^^ 

EITHER OR BOTH DRIVES CAN BE SELECTED BY TYPING ^A^ AND/OR 
^B'' FOLLOWED BY A CARRIAGE RETURN^ 

4^3a«l DRIVE SELECTION EXAMPLES 

DRIVE(S)? h^B 
DRIVE(S)? AB 
DRIVE(S)| BfA 
DR1VE(S)I B 

4^3^2 ADDRESS SELECTION 

STARTING THE PROGRAM AT 210 OR 214 ALLOWS THE OPERATOR 
TO CHANGE THE ^CONTROL AND STATUS^ AND ^DATA BUFFER** 
REGISTER ADDRESSES^ THE VECTOR ADDRESS AND THE 
PRIORITY LEVEL^ 

THE PROGRAM WILL ASK FOR THE DRIVES TO BE TESTED AS PER 
4,3«1^ AFTER THE DRIVES HAVE BEEN SELECTED IT WILL ASK 
FORI 

1^ BUS ADDRESS OF THE CONTROL AND STATUS REGISTER (TAGS) 
2^ VECTOR ADDRESS 
3« PRIORITY LEVEL 

AND THE OPERATOR MUST RESPOND WITH THE DESIRED PARAMETER 
OR A CARRIAGE RETURN (WHICH IMPLIES LEAVE AS IS) ^ 
WHEN ALL PARAMETERS HAVE BEEN DEFINED THE PROGRAM 
WILL TYPE THEM BACK OUT AND ASK IF THEY ARE OK AT 
WHICH TIME THE OPERATOR RESPONSES WITH A ^Y" OR A 
^CARRIAGE RETURN" FOR ^YES^ ANYTHING ELSE IS A «N0*«« 
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4«3^2^i ADDRESS SELECTION EXAMPLES 

DRIVESCS) h 

TACSl 177500 

VECTOR? 260 

PRIORITY? 6 

TACS^177500 TADBssl77502 VECTORs000260 PRIORITYs000300 

OK? 

DRIVESCS) k,B 

TACS? 470 

VECTOR? 

PRIORITY? 

TACSS177470 TADBxl77472 VECTORs000260 PRIORITYs000300 

OK? 

5^ OPERATING PROCEDURE 

5,i OPERATIONAL SWITCH SETTINGS 

IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH 
REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED WHICH ALLOWS 
THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER^ 
IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES 
AND IT CONTAINS ALL ONES C177777) THEN THE SOFTWARE SWITCH 
REGISTER CLOC. 176) IS USED^ 

CONTROL! 

THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH 
REGISTER CLOC« 176) FROM THE TTY« THIS CAN BE ACCOMPLISHED BY 
DOING THE FOLLOWINGi 

1) TYPE CONTROL G <^G>| THIS WILL ALLOW THE TTY TO ENTER DATA INTO 
LOC«, 176 AT SELECTED POINTS WITHIN THE PROGRAM^ 

2) THE MACHINE WILL THEN TYPEl SWR^XXXXXXNEWs CXXXXXX IS THE OCTAL CONTENTS 
OF THE SOFTWARE SWITCH REGISTER^) 

3) AFTER THE ^^NEWs^^ HAS SEEM TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE TTYl 

A) TYPE A NUMBER TO BE LOADED INTO LOC , 176 FOLLOWED BY A <CR>. 
(ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS 
WILL BE ALLOWED) 

IF A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED, 

B) IF A CONTROL U <'"U> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU 
BACK TO STEP 2* 



WITH SW<15|08>^0 THE PROGRAM WILL PRINT OUT On 
ERRORS AND COWTINUE IN TEST. BELL WILL RIMG 
AT COMPLETION OF A PASS^ 
THE SI^ITCH SETTINGS AREl 

S^<15>^1^^^HALT ON ERROR 
SW<14>sU^^L00P ON TEST 
SM<I3>^1,., INHIBIT ERROR TYPEOUTS 
SW<il>^U, ^INHIBIT ITERATIOMS 
SW<10>^1,,,RING BELL ON ERROR 
SW<10>Ji!0^,^RING BELL ON PASS COMPLETE 
SW<09>sjU^^LOOP on error 

SW<08>-U.«LOOP ON TEST AS PER SW<07|00> 
SW<07>^l^t«LOCK ON CURRENT DRIVE (ONLY VALID 

FOR STARTING ADDRESSES 220 THRU 250) « 



5,2 SUBROUTINE ABSTRACTS 
5,2 a SCOPE 



THIS SUBROUTINE CALL (VIA AN lOT INSTRUCTION) IS PLACED BETi^EEN I 

EACH TEST IN THE INSTRUCTION SECTION, IT RECORDS THE STARTING 

ADDRESS or EACH TEST IN LOCATION »«$LPADR« AND «$LPERR*^ AS IT IS 

BEING ENTERED* 

THIS ROUTINE SUPPORTS THE S/W SWITCH REG FUNCTIONS 



5,2,2 TRAPCATCHER 



A ««4'2^ - '^HALT*' SEQUENCE IS REPEATED FROM LOG ^ TO LOC « 776 
TO CATCH ANY UNEXPECTED TRAPS. THUS# ANY UNEXPECTED TRAPS ^Ihh 
HALT AT THE DEVICE TRAP VECTOR t2« 



5^2^3 ERROR 



THIS SUBROUTINE CALL (VIA A EMT INSTRUCTION) IS USED TO REPORT 

ALL ERRORS^ (REFER TO 6^) 

THIS ROUTINE SUPPORTS THE S/W SWITCH REG FUNCTIONS 

IF PROCESSOR HALTS (BIT ISsl)^ OPERATOR 

CAN RESET S/\H SWITCH REGISTER BY HITTING A 

^CONTROL G^ <^G> BEFORE HITTING CONTINUE^ 
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S.2.4 TMP 

k NUMBER OF SUBROUTINES ARE CALLED BY THE TRi^P INSTRUCTION^ 

FOLLOWING IS THE CIILLS USED AMD THE LABEL OF THE STARTING 
ADDRESS OF THE SUBROUTINES^ 

5.2.4.1 TYPE C$T¥PE) 

ROUTIWE TO T¥PE AN ASCIE STRING ON THE TT¥ 

THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS 
AFTER A LINE FEED. 

5.2.4.2 RDCHR C$RDCHR5 

READ A SINGLE ASCII CHARACTER FROM THE TTY 
5.2.4^3 HDLIN CSRDLIi) 

READ AM ASCII STRING FROM THE fT¥ 
5,2.4^4 WAITREADI (WAIT. ON, READY) 

WAIT ON THE ^TAH READ¥« BIT TO SET 
5,2,4^S WIITXFER C WAIT, FOR, XFER.REQ) 

WAIT ON THE ^fkil TRANSFER REQUEST^ BIT TO SET 
5,2,4.6 STIPOC 

CHANGE A BINARY NUMBER TO OCTAL ASCII AND TYPE If, 



5^2«5 THE FOLLOWING SUBROUTINES APE CALLED BY A JSR 
5,2,5.i $T¥PEC 

ROUTINE TO TYPE k SINGLE ASCII CHARACTER 
5,2,5.2 TYPERR 

THIS ROUTIWE ^Ihh TYPE THE ERROR MESSAGES 
5^2«5*3 SELDRV ? 

THIS ROUTINE IS USED TO ASK THE OPERATOR WHAT DRIVE(S) 
ARE TO BE TESTED 

m 

592.5.4 SELADR 

THIS ROUTINE WILL ASK THE OPERATOR FOR THE ADDRESSES OF 
THE ^TACS^^^TADB^ AND VECTOR AND THE PRIORITY TO USE, 

5,2^6 THE FOLLOW ROUTINES ARE USED TO MAKE ADJUSTMENTS TO I 

THE TU60. BEFORE USING ANY OF THEM LOAD AND START 2i4« 

5.2*6.1 WFGSUB 



WRITE FILE GAPS FROM ^BOT** TO ^EOT^ 

START AT 220 

THIS ROUTINE CAN BE USED TO ADJUST THE ^WRITE GAP MONO" AND 

THE ^WRITE DELAY MONO*'. 



5.2«6.2 WRTSUB 



WRITE CONTINUOUS BLOCKS OF DATA 
START AT 224 

THE PROGRAM ^ILL HALT THREEC33 TIMES 
AFTER EACH HALT SET THE SWR AND PRESS CONTINUE 
HALT 1 ~ SWR<7|0> - NUMBER OF BYTES PER BLOCK 
HALT 2 -"SWR<7|0> ^ PATTERN DESIRED 
HALT 3 — SI^R<i5l0> ^ OPERATIONAL SWITCH SETTINGS 
THIS ROUTINE CAN BE USED TO ADJUST THE ^'GAP TIME MONO^ 
## IF USING SOFTWARE SWITCH REGISTER AFTER 
EACH HALT OPERATOR MILL BE PROMPED 
FOR THE VALUE WITH ^SWR^XXX NEW^s** 



;■ 



5^2^6,3 RDSUB 



READ CONTINUOUS BLOCKS OF DATA 

START AT 230 

THIS ROUTINE CAM BE USED TO ADJUST THE ^SIGNAL MONO^ 

AND THE '^THRESHOLD POT*^ 



5^2^6^4 WGPBLK 



WRITE A FILE GAP AND A BLOCK OF DATA FROM BOT TO ECT 

START AT 234 

THE PROGRAM WILL HALT THREE (3) TIMES 

AFTER EACH HALT SET THE SWR AND PRESS CONTINUE 

HALT I "- SWR<7|0> - NUMBER OF BYTES PER BLOCK 

HALT 2 «^- SMR<lt&> - PATTERN DESIRED 

HALT 3 -^- SWR<15I0> ^ OPERATIONAL SWITCH SETTINGS 

THIS ROUTINE CAN BE USED TO ADJUST THE «I^RITE GAP MONO^ 

AND THE ^GAP TIME MONO^, 

## IF USING SOFTWARE SWITCH REGISTER AFTER 

EACH HALT OPERATOR WILL BE PROMPED 

FOR THE VALUE WITH ^SWRzXXX NEI^^^ 



5,2^6^5 RGBLK 



READ A BLOCK OF DATA AND A FILE GAP 

START AT 240 

THIS ROUTINE IS USED AFTER ^WRITE A BLOCK AND A FILE GAP^ ROUTINE 

IT CAN BE USED TO ADJUST THE ^SIGNAL MON^, THE THRESHOLD POT^ 

AND THE ^TAPE BLANK MONO« ^ 



5^2^6.6 SFFGSB 



SPACE FORWARD FILE GAP FROM ^BOT^ TO ^EOT*^ 

START AT 244 

THIS ROUTINE CAN BE USED AFTER *^WRITE FILE GAP^ FOR LOl^ SPEED 

SPACE FOWARO (TAPE BLANK MONO CAN BE ADJUSTED)^ OR AFTER READ OR 

WRITE A FILE GAP AND A BLOCK OF DATA FOR HIGH SPEED SPACE FORWARD 

(SIGNAL MONO CAN BE CHECKED)^ 



5^2^6,7 BSFGSB 



BACK SPACE FILE GAP 

START AT 250 

THIS ROUTINE CAN BE USED TO ADJUST OR CHECK THE ^SIGNAL MONO^^ 



S,2.7 THE FOLLOWING SUBROUTINES ARE USED S¥ THE ADJUSTMENT 
ROUTINES 

5.2.7.1 5ETBUF 

SETUP BLOCK SIEE AND PATTERN 

5.2.7.2 WRTBLK 

WRITES A BLOCK OF DATA 
5,2.7^3 RDBLK 

READS A BLOCK OF DATA 
5,2^7,4 NXTDR¥ 

CHAiGE DRI¥E 

6^ ERRORS 

THERE ARE A NUMBER OF ERRORS THAT CAM OCCUR IN THIS 
PROGRAM, WHEN AW ERROR IS EiCOUNTERED THE CALL TO 
THE ERROR ROUTINE IS MADE AND IF SW<!3> IS MOT 
SET AN ERROR MESSAGE PERTAINING TO THE ERROR WILL BE 
TIPED^ EACH ERROR TYPE OUT WILL CONTAIN THE FOLLOWINGi 

1, AM ERROR MESSAGE 

2, A DATA HEADER 

3, A DATA STRING 

REFER TO THE LISTING UNDER SERRTB FOR THE DIFFERENT 
ERRORS THAT CAN OCCUR, 

7, RESTRICTIONS 

BEFORE STARTING THE PROGRAM THE OPERATOR MUST INSURE THAT A 
CASSETTE IS LOADED IN THE DRIfECS) TO BE TESTED AND IS WRITE 
ENABLED AND AT BEGINNING OF TAPE^ 
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i, msCEhhkUEOUS 

8,1 EXECUTION TIME 

THE FIRST PASS TIKES APPEOXIMITELY 45 SECONDS ILL 
SUBSEQUENT PISSES TIKE APPROXIMATELY 100 SECOMDS* 

8t2 STACK POINTER 

STACK IS iMlTIALLf SET TO 1100. 
8^3 PASS COUNT 

I PROGRAM PASS THRU COUMf IS KEPf IM ^iPASS^^ 

8^4 ITERATIOMS 

THE FIRST PASS OF THE PROGRAM WILL AUTOMATICALLY INHIBIT 
ITERATIOiS^ ALL SUBSEQUENT PASSES WILL PERFORM FULL# 
C2000 DECIMAL UNLESS OTHERWISE SPECIFIED WITHIN A TEST)^ 
ITERATIONS^ 

8^5 SPECIAL REGISTERS 

REGISTER R3fR4 AND R5 ARE RESERVED FOR THE THE FOLLOl/^ING 
PURPOSESI 

R3 n DRI¥E 
R4 r TAGS 
R5 ^ TADB 

9^ PROGRAM DESCRIPTION 

THIS PROGRAM IS I SEQUENCE OF SMALL INDEPENDENT TESTS THAT 
CHECK THE TAU FOR PROPER OPERATION WITH TAPE MOTION KEPT 
AT A MINIMUM^ 

THE TESTS CAN BE GROUPED INTO THE FOLLOWING GENERAL GROUPS^ 

I, VERIFY THAT THE *^CONTROL AND STATUS" (TAGS) AND THE 

^Dhlh BUFFER® (TADB) REGISTERS RESPOND TO ADDRESSING^ 

2^ TEST THE *«TACS** FOR PROPER OPERATION 

3^ TEST ^READY*^ 

4^ TEST ^'CLEAR LEADER ERRORS 

5^ TEST ^TRANSFER REQUEST** 

6t TEST THE «TADB^ FOR PROPER OPERATION^ 
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, TITLE TAll BASIC LOGIC TEST CPART 15 MAINDEC«1 1-DETAA-C 
l*COPYRIGHT CC) 1973,1976 
|*DIGXTAL EQUIPMENT CORP« 
|#MA¥NARD, MASS, 01754 

• » 

f«PROGBAM BY JIM LACEY 

j«THIS PROGRAM WAS ASSEMBLED USING THE PDP^ll MAINOEC SYSMAC 

j^PACKAGE (*^AINDEC«11»DEQAC»CU,MAR 24« 1976, 

!«• 

• J «»»««»4s-»«#»»»a'#»»»»»««*« »»**«■«*«««** *•»«»*■»»»*»»«*»«»»*********«■ 

,REM| 

GENERAL INFORMATION ABOUT THE TAU/TU60 CASSETTE 
ADDRESS MNEMONIC DESCRIPTION 



777500 TACS 
777502 TADB 
260 TAVEC 



CONTROL AND STATUS REGISTER 
DATA BUFFER REGISTER 
INTERRUPT VECTOR 



TACS REGISTER DESCRIPTION 
BIT NAME 



15 
14 
13 
12 
11 



07 
06 
05 
04 
03 
02 



ERROR 

BLOCK CHECK ERROR 

CLEAR LEADER 

WRITE LOCK 

FILE GAP 

TIMING ERROR 

OFF LINE 

UNIT SELECT 

TRANSFER REQUEST 

INTERRUPT ENABLE 

READY 

ILBS 

FUNCTION BIT 02 

FUNCTION BIT 01 

FUNCTION BIT 00 

0sWRlTE-FILE»GAP 

IsWRITE 

2=READ 

3=BACK SPACE FILE GAP 

4=BACK SPACE BLOCK GAP 

5=SPACE FORWARD FILE GAP 

6=SPACE FORWARD BLOCK GAP 

7=REWIND 

GO BIT 



INIT 




STATE 


READ AND/O 






? 


READ ONLY 





READ ONLY 


? 


READ ONLY 


? 


READ ONLY 





READ ONLY 





READ ONLY 


1 


READ ONLY 





READ/WRITE 





READ ONLY 





READ/WRITE 


i 


READ ONLY 





READ/WRITE 





READ/WRITE 





READ/WRITE 





READ/WRITE 



WRITE ONLY! 



TAll BASIC LOGIC TEST (PART 1) MAINDEC-1 1 -DZTAA«C 
DETAAC.NEW GENERAL INFORMATION 
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57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 



91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 



000011 
000012 
000015 
000200 
177776 

177774 
177772 
177570 
177570 



1 

000002 
000003 
000004 
000005 
000006 
000007 



000040 
000100 
000140 



SBTTL OPERATIONAL SWITCH SETTINGS 

SWITCH USE 

15 HALT ON ERROR 

14 LOOP ON TEST 

13 INHIBIT ERROR TYPEOUTS 

11 INHIBIT ITERATIONS 

10 BELL ON ERROR 

9 LOOP ON ERROR 

8 LOOP ON TEST IN SWR<7S0> 

7 LOCK ON CURRENT DRIVE (ONLY VALID WITH MANUAL LOOPING) 
»«•«***»«■**«■««■*«•■»»*■» **'»«****® *************** ************** 

BASIC DEFINITIONS 



SBTTL 



f*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *** 
STACKS 1100 

^EQUIV EMT, ERROR jjBASIC DEFINITION OF ERROR CALL 
,E0UIV lOT, SCOPE JJBASIC DEFINITION OF SCOPE CALL 



•MISCELLANEOUS DEFINITIONS 

CODE FOR H0RI20NTAL TAB 

CODE FOR LINE FEED 

CODE FOR CARRIAGE RETURN 

CODE FOR CARRIAGE RETURN-LINE FEED 

PROCESSOR STATUS WORD 



HTs 

LFs 

CR= 

CRLFs 

PS= 

.EQUIV 

STKLMT: 

PiRQs 

DSWRs 

DDISPs 



U 
12 

15 

200 

177776 

PS^PSW 

177774 

177772 

177570 

177570 



STACK LIMIT REGISTER 
PROGRAM INTERRUPT REQUEST REGISTER 
HARDWARE SWITCH REGISTER 
HARDWARE DISPLAY REGISTER 



;«GENERAL PURPOSE REGISTER DEFINITIONS 



R0= 

Bis 

R2 = 

R3s 

R4s 

R5s 

R6s 

R7s 

«EQUIV 

sEQUlV 



%0 

%1 

%2 

%3 

%4 

%5 

%6 

%7 

R6,SP 

R7,PC 



I I GENERAL REGISTER 

I J GENERAL REGISTER 

J jGENERAL REGISTER 

jrGENERAL REGISTER 

jjGENERAL REGISTER 

S jGENERAL REGISTER 

f I GENERAL REGISTER 

If GENERAL REGISTER 
J jSTACK POINTER 

f I PROGRAM COUNTER 



j*PRIORITY LEVEL DEFINITIONS 



PP0= 
PRls 
PR2a 
PR3 = 
PR4= 
PR5 = 
PR6s 
PR7 = 



40 

100 

140 

200 

240 

300 

340 



jjPRIORITY LEVEL 

SiPRIORITY LEVEL 1 

If PRIORITY LEVEL 

If PRIORITY LEVEL 

flPRIORITY LEVEL 

If PRIORITY LEVEL 

If PRIORITY LEVEL 

flPRIORITY LEVEL 



|««SWITCH REGISTER" SWITCH DEFINITIONS 



TAll BASIC LOGIC TEST (PART 1) MAINDEC-1 1"DZTAA"C 
DETAAC,NEW BASIC DEFINITIONS 
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113 


100000 


114 


040000 


115 


020000 


116 


010000 


117 


004000 


118 


002000 


119 


001000 


120 


000400 


121 


000200 


122 


000100 


123 


000040 


124 


000020 


125 


000010 


126 


000004 


127 


000002 


128 


000001 


129 




130 




131 




132 




133 




134 




135 




136 




137 




138 




139 




140 




141 


100000 


142 


040000 


143 


020000 


144 


010000 


145 


004000 


146 


002000 


147 


001000 


148 


000400 


149 


000200 


150 


000100 


151 


000040 


152 


000020 


153 


000010 


154 


000004 


155 


000002 


156 


000001 


157 




158 




159 




160 




161 




162 




163 




164 




165 




I6b 




167 




168 





SW153 


100000 


SW14= 


40000 


SW13 = 


20000 


SW12 = 


10000 


SWlls 


4000 


SW10= 


2000 


SW09= 


1000 


SW08 = 


400 


SW07 = 


200 


SW06S 


100 


SW05= 


40 


SW04 = 


20 


SW03 = 


10 


SW02S 




SW01S 


2 


SW00S 


1 


,EQUIV 


SW09,SW9 


.EQUIV 


SW08fSW8 


.EQUIV 


SW07rSW7 


.EQUIV 


SW06f SW6 


.EQUIV 


SW05#SW5 


.EQUIV 


SW04,SW4 


, EQUIV 


SW03,SW3 


.EQUIV 


SW02,SW2 


.EQUIV 


SW01,5Wi 


.EQUIV 


SW00,SW0 


J«DATA 


BIT DEFINIT 


BITlSs 


100000 


BIT14= 


40000 


BIT13= 


20000 


BIT12= 


10000 


BIT11= 


4000 


BIT10= 


2000 


BIT09= 


1000 


BIT08B 


400 


BIT07S 


200 


BIT06= 


100 


BIT05S 


40 


BIT04S 


20 


BIT03= 


10 


BIT02= 


4 


BIT01S 


2 


BIT00S 


1 


, EQUIV 


BIT09,BIT9 


, EQUIV 


BIT08,BIT8 


.EQUIV 


bIT07,BIT7 


, EQUIV 


BIT06,BIT6 


.EQUIV 


BIT05,BIT5 


.EQUIV 


BIT04,BIT4 


, EQUIV 


BIT03#BIT3 


.EQUIV 


BIT02,BIT2 


.EQUIV 


BIT01,BIT1 


.EQUIV 


BIT00,BIT0 



J*BASIC "CPU" TRAP VECTOR ADDRESSES 



TAU BASIC LOGIC TEST (PART 1) MAINDEC"-! 1 -DZTAA-C 
DZTAAC.NEW BASIC DEFINITIONS 
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169 


000004 


170 


000010 


171 


000014 


172 


000014 


173 


000014 


174 


00002^ 


175 


000024 


176 


000030 


177 


000034 


178 


000060 


179 


000064 


180 


000240 



ERRVEC= 4 
RESVECs 10 
TBITVEC=14 
TRTVECs 14 
BPTVECa 14 
lOTVECs 20 
PWRVECs 24 
EMTVECs 30 
TRAPVEC=34 
TKVEC= 60 
TPVECs 64 
PIRQVEC=240 



JJTIME OUT AND OTHER ERRORS 
PRESERVED AND ILLEGAL INSTRUCTIONS 
..w-T" BIT 

J TRACE TRAP 

jBREAKPOINT TRAP (BPT) 

? INPUT/OUTPUT TRAP (lOT) «»SCOPE*« 

J POWER FAIL 

^EMULATOR TRAP (EMT) *^ERROH«» 

J-'TRAP" TRAP 

jTTY KEYBOARD VECTOR 

jTTY PRINTER VECTOR 

; PROGRAM INTERRUPT REQUEST VECTOR 



TAll BASIC LOGIC TEST (PART I) MAINDEC-1 l-'DZTAA-C 
DZTAAC.NEW TAtl DEFINITIONS 
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181 




182 


000000 


183 


000002 


184 


000004 


185 


000006 


186 


000010 


187 


000012 


188 


000014 


189 


000016 


190 




191 




192 




193 


100000 


194 


040000 


195 


020000 


196 


010000 


197 


004000 


198 


002000 


199 


001000 


200 


000400 


201 


000200 


202 


000100 


203 


000040 


204 


000020 


205 


000010 


206 


000004 


207 


000002 


208 


000001 


209 


000016 


210 




211 




212 




213 




214 




215 


000003 


216 


000004 


217 


000005 


218 




219 




220 





;TA11 FUNCTIONS 
WFG= 



WRITES 

READS 

BSFGa 

BSBGs 

SFFG= 

SFBGs 

REWINDS 



• I ■»#*«#■»*«»« »«*««»«»««-#»»*«»»4S.#»«»»*».» 



yWRlTE FILE GAP FUNCTION 
;WRITE FUNCTION 
yREAD FUNCTION 

jBACK SPACE FILE GAP FUNCTION 
yBACK SPACE BLOCK GAP FUNCTION 
{SPACE FWD FILE GAP FUNCTION 
;SPACE FWD BLOCK GAP FUNCTION 
jREWIND FUNCTION 



;TA11 B 

ERRORS 

CRCERR! 

LEADERS 

WRTLOCK 

FGAPi 

TIHERRs 

OFFLINE 

UNITS 

TR.REQs 

INT.ENs 

READYs 

ILBSs 

FUNC2S 

FUNCls 

FUNC0S 

GOs 

FUNCTIO 

;////// 

J////// 



IT ASSIG 

BIT15 

BIT14 

BIT13 
SBIT12 

BITll 

BIT10 

BIT09 

BIT08 

BIT07 

BIT06 

BIT05 

BIT04 

BIT03 

BIT02 

BIT0i 

BIT00 
Ns 

/////// 
/////// 
/////// 



FUNC2+KUNC1*FUNC0 
///////////////////////////////////////////////////////// 
///////////////////////////////////////////////////////// 
///////////////////////////////////////////////////////// 



ySPECIAL REGISTERS 
DRIVES %3 
TACSs %4 
TADBs %5 



;R3 CONTAINS THE DRIVE UNDER TEST 

jR4 IS USED AS A POINTER TO THE TACS REGISTER 

|R5 IS USED AS A POINTER TO THE TADB REGISTER. 



;////////////////////////////////////////////////////////////////////// 
;////////////////////////////////////////////////////////////////////// 



TAU BASIC LOGIC TEST (PART 1) 
DZTAAC.NEW TRAP CATCHER 



MAINDEC"U-DZTAA»C 
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221 








222 








223 




000000 




224 








225 








226 








227 




000174 




228 


000174 


000000 




229 


000176 


000000 




230 








231 


000200 


000137 


001356 


232 


000204 


000137 


001410 


233 


000210 


000137 


001416 


234 


000214 


000137 


001424 


235 


000220 


000137 


012622 


236 


000224 


000137 


012706 


237 


000230 


000137 


012774 


238 


000234 


000137 


013054 


239 


000240 


000137 


013156 


240 


000244 


000137 


013252 


241 


000250 


000137 


013336 



.SBTTL TRAP CATCHER 

«s0 

j«ALL UNUSED LOCATIONS FROM 4-7 
;»SEQUENCE TO CATCH ILLEGAL TRAPS 
?*LOCATION CONTAINS TO CATCH 

.sl74 
DISPREG5 ,WORD 
SWREGs .WORD 
.SBTTL STARTING ADDRESS(ES) 



JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 



3#BEGIN1 

i#BEGIN2 

@#BEGIN3 

8»BEGIN4 

!a»WFGSUB 

i#WRTSUB 

e#RDSUB 

@#WGPBLK 

9#RGPBLK 

fSSFFGSB 

&«BSFGSB 



76 CONTAIN A •', + 2#HALT'' 

AND INTERRUPTS 
IMPROPERLY LOADED VECTORS 

{SOFTWARE DISPLAY REGISTER 
{SOFTWARE SWITCH REGISTER 



IJUMP TO STARTING ADDRESS OF PROGRAM 

{SELECT DRIVE(S) BEFORE STARTING TEST 

{SELECT DRIVE(S) AND ADDRESSES BEFORE TESTING 

{SETUP FOR MANUAL LOOPING 

{WRITE FILE GAP FROM BOT TO EOT 

{WRITE CONTINUOUS BLOCKS OF DATA 

{READ CONTINUOUS BLOCKS OF DATA 

{WRITE FILE GAP AND A BLOCK OF DATA 

{READ BLOCK OF DATA AND INTO A FILE GAP 

{SPACE FWD FILE GAP FROM BOT TO EOT 

{BACK SPACE FILE GAPS 



Tfiil BASIC LOGIC 
DETAAC.NEW 

242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 



TEST (PART 1) MA1NDEC«»U««D2TAA'»C 
TOGGLE W ROUTINES 
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289 
290 
291 
292 
293 
294 



jTHE FOLLOWING ROUTINES CAN BE TOGGLED IN, 

inifiNf/i/nnfnnnNNHHUNNnNnnffnnNNHUNnNUNu 



THE FOLLOWING ROUTINES (LOOPl, L00P2» & L00P3) CAN BE TOGGLED 
IN WHEN IT IS IMPOSSIBLE TO LOAD THE DIAGNOSTICS 

NOTES BEFORE USING THESE ROUTINES INSURE THAT R3»R4»& R5 
ARE SETUP PROPERLY, 

** MOTES IF USING SOFTWARE SWITCH REGISTER 

LOCATION SWR (=1140) MUST CONTAIN 

ADDRESS "SWREG" (si765, 

«»«»# PUT VALUE INTO 176 «■###« 

«» REGISTERS 3#4»&5 MUST BE SETUP *# 

«& VIA MOVE INSTRUCTIONS »« 
R3s IF USING DRIVE A 

400 IF USING DRIVE B 

R4s TAll STATUS REG ADDRESS (TACS 177500) 

H5s TAli DATA BUFFER ADDRESS (TADB 177502) 

LOOP! WILL LOAD THE SWITCH REGISTER INTO THE TACS, 

L00P2 WILL WRITE THE CONTENTS OF THE SWITCH REGISTER 
ALL THE WAY TO END"OF-TAPE(EOT) . 

L00P3 WILL READ TO EOT, DATA WILL GO TO R0, 

NOTEl L00P2 AND L00P3 WILL REWIND WHEN EOT IS REACHED AND 
THEN START OVER. 

fLOAD SWITCH REGISTER INTO THE TACS 



000500 
000504 



017714 
000775 



MOV §SWR, (STAGS 
BR LOOPl 



jLOAD TACS 
jLOOP 



TAU BASIC LOGIC TEST (PART 1) MAINDEC"! 1 -DZTAA-C MACYll 27(732) 
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295 








296 








297 








298 








299 




000600 




300 








301 


000600 


000005 




302 


000602 


010314 




303 


000604 


112714 


000017 


304 


000610 


032714 


000040 


305 


000614 


001775 




306 


000616 


112714 


000003 


307 


000622 


105714 




308 


000624 


100003 




309 


000626 


017715 


000306 


310 


000632 


000773 




31! 


000634 


032714 


000040 


312 


000640 


001357 




313 


000642 


000767 




314 








315 








316 








317 








318 








319 








320 








321 




000700 




322 








323 


000700 


000005 




324 


000702 


010314 




325 


000704 


112714 


000017 


326 


000710 


032714 


000040 


327 


000714 


001775 




328 


000716 


112714 


000005 


329 


000722 


105714 




330 


000724 


100002 




331 


000726 


011500 




332 


000730 


000774 




333 


000732 


032714 


000040 


334 


000736 


001360 




335 


000740 


000770 





• »*»*»«•»•*«»«•*»«•»*«* 



!•»«■»»«■»*#»«■«■«««*■»•»*»»»«•*«■»«■*«■***««****■******* 



jWBITE SWITCH REGISTER ON TAPE FROM BOT TO EOT 
#«•»*#•» ■»«^»»*«-» «•««*«»««■»»« *«•»«•****«■***«**'»**** *************** 



RESET 




jCLEAR ALL FLAGS 


MOV 


DRIVE, PTACS 


•SELECT DRIVE 


MOVE 


UREWIND|GO,@TACS 


jGO TO BOT 


BIT 


»READY,0TACS 


jWAIT TILL READY COMES UP 


BEQ 


1$ 




MOVB 


SWRITEiGO,§TACS 


fSTART A WRITE 


TSTB 


§TACS 


•CHECK FOR TRANSFER REQUEST 


BPL 


3$ 


jBR IF NOT SET 


MOV 


@SWR,?TADB 


jSEND DATA TO TAll 


BR 


2S 


jLOOP 


BIT 


ilREADY,3TACS 


jDID READY SET? 


BNE 


L00P2 


jSTART OVER IF YES 


BR 


2S 


iLOOP 



■ }««.#»*«.# «.«i**-g-*#« »*#»«#«##»«««■***»«**«»«***«■ ********************** 

J READ FROM BOT TO EOT 
• ,#«»*#^*« •»«»««■««#«■*»««*•»«»»*»«■»*«■*««******* ********************** 



L00P3S RESET 



MOV 


DRIVEr©TACS 


MOVB 


#REWINDIGO,@TACS 


BIT 


#READY»9TACS 


BEQ 


i$ 


MOVB 


#READIGO»^TACS 


TSTB 


§TACS 


BPL 


3S 


MOV 


iTADB,R0 


BB 


2S 


BIT 


gREADY,§TACS 


BNE 


L00P3 


BR 


2S 



CLEAR ALL FLAGS 

SELECT DRIVE 

START A REWIND 

WAIT ON REWIND TO FINISH 

START A READ 

CHECK TRANSFER REQ 

BR IF NOT SET 

PICKUP THE DATA 

LOOP 

CHECK READY 

START OVER 

LOOP 



Tat I BASIC LOGIC TEST (PART 1) 
DETAACNEW COMMON TAGS 



MAINDEC-n-DETAI«C 
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336 






337 






138 






339 






340 






341 






342 




001100 


343 


001100 




344 


001100 


000000 


34S 


001102 


000 


346 


001103 


000 


347 


001104 


000000 


348 


001106 


000000 


349 


001110 


000000 


350 


001112 


000000 


351 


001114 


000 


352 


001115 


001 


353 


001116 


000000 


354 


001120 


000000 


355 


001122 


000000 


356 


001124 


000000 


357 


001126 


000000 


358 


001130 


000000 


359 


001132 


000000 


3&0 


001134 


000 


361 


001135 


000 


362 


00U36 


000000 


363 


001140 


177570 


364 


001142 


177570 


365 


001144 


177560 


366 


001 146 


177562 


367 


001150 


177564 


368 


001152 


177566 


369 


001154 


000 


370 


001155 


002 


371 


001156 


012 


372 


001157 


000 


373 


001160 


000000 


374 






375 


001162 


000000 


376 


001164 


000000 


377 


001166 


000000 


378 


001 170 


000000 


379 


001172 


177607 000377 


380 


001176 


077 


381 


001177 


015 


382 


001200 


000012 


383 






384 


001202 


000000 


385 


001204 


000000 


386 


001206 


177500 


387 


001210 


177501 


388 


001212 


177502 


389 


001214 


177503 


390 


001216 


000260 000262 


391 


001222 


000300 



sSBTTL COMMON TAGS 



5»THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
f#USED IN THE PROGRAM, 



$CHTAGj 






$PASS! 


sWOBD 





STSTNMi 


.B¥TE 





lERFLGi 


«B¥TE 





glCNTi 


sWOBD 





SLPADRs 


.WORD 





0LPEHRS 


.WORD 





SERTTLl 


.WORD 





SITEMB! 


.BtTE 





SEBMAXs 


,BYTE 


1 


SERRPCf 


,mm 





$GDADR; 


,WORD 





SBDADRS 


eWORD 





SGDDATs 


.WORD 





SBDDATs 


.WORD 







»WORD 







»WORD 





SAUTOBs 


.BYTE 





gINTAGg 


,B¥TE 







»WOHD 





SWRs 


»WORD 


DSWR 


DISPLAY 


.WORD 


DDISP 


STKSI 


177560 




STKBI 


177562 




STPSJ 


177564 




STPBJ 


177566 




$NULL! 


,BYTL 





SFILLS! 


.BYTE 


2 


SFILLC: 


.BYTE 


12 


STPFLG: 


,BYTE 





SREGADj 


„WORD 





SREG0S 


.WORD 





SREGlJ 


.WORD 





STIMESS 







SESCAPE 


S0 




SBELL! 


.ASCIE 


<207><377><377> 


SQUESS 


.ASCII 


/?/ 


SCRLFS 


.ASCII 


<15> 


SLF! 


,ASCIE 


<12> 


1 .»«««*»»**«■*«■*«# »»«*«-*»«**^«-*** 


SAVPC5 


.WORD 





SAVPSI 


.WORD 





TACSLS 


177500 




tacsh; 


177501 




TAD8LS 


177502 




TADBHs 


177503 




TAVEC! 


260,262 




TAPRIO: 


300 





I START or COMMON TAGS 

iCOMfAI^S PASS COUNT 

fCONTAlNS THE TEST NUMBER 

fCONTAINS ERROR FLAG 

fCONTAINS SUBTEST ITERATION COUNT 

fCONTAINS SCOPE LOOP ADDRESS 

fCONTAINS SCOPE RETURN FOR ERRORS 

fCONTAINS TOTAL ERRORS DETECTED 

fCONTAINS ITEM CONTROL BYTE 

fCONTAINS MAX, ERRORS PER TEST 

fCONTAINS PC OF LAST ERROR INSTRUCTION 

fCONTAINS ADDRESS OF *GOOD' Ohth 

fCONTAINS ADDRESS OF 'BAD' DATA 

fCONTAINS 'GOOD' DATA 

fCONTAINS 'BAD' DATA 
fRESERVED--NOT TO BE USED 

fAUTOMATIC MODE INDICATOR 
f INTERRUPT MODE INDICATOR 

fADDRESS OF SWITCH REGISTER 

fADDRESS OF DISPLAY REGISTER 

fTTY KBD STATUS 

fTTY KBD BUFFER 

fTTY PRINTER STATUS REG. ADDRESS 

fTTY PRINTER BUFFER REG. ADDRESS 

fCONTAINS NULL CHARACTER FOR FILLS 

fCONTAINS » OF FILLER CHARACTERS REQUIRED 

f INSERT FILL CHARS. AFTER A "LINE FEED" 

l"TERMINAL AVAILABLE" FLAG (8IT<07>s0=YES) 

fCONTAINS THE ADDRESS FROM 

fWHICH (SREG0) WAS OBTAINED 

fCONTAINS (C$REGAD)+0) 

fCONTAINS (($REGAD)-l-2) 

fMAX. NUMBER OF ITERATIONS 

fESCAPE ON ERROR ADDRESS 

fCODE FOR BELL 

fQUESTlON MARK 

fCARRIAGE RETURN 

fLINE FEED 

fSTORAGE FOR THE PC 
•STORAGE FOR THE PS 
fLOW BYTE ADDRESS OF TACS 
fHIGH BYTE ADDRESS OF TACS 
fLOW BYTE ADDRESS OF TADS 
fHIGH BYTE ADDRESS OF TADB 
fTAll VECTOR ADDRESS 
fTAli BR LEVEL 6 



TAll BASIC LOGIC TEST (PART 1) 
DETAAC.NEW COMMON TAGS 



392 001224 000000 

393 001230 001224 

394 001232 000000 

395 001234 000000 



MAINDEC-U-DETAA«»C 



DRVKEY: 0,0 

DRVPNTi DRVKEY 

ASKKEYs 

CURDRVs 



MACYll 27(732) il'"JUN»76 ISslS PAGE 10 
fDRlVE SELECT KEYl 
fCURRENT DRIVE BEING TESTED 



TAU BASIC LOGIC TEST (PART 1) MAINDEC-U»DZTAA«C 
DZTAACNEW ERROR POINTER TABLE 
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396 






397 
398 






399 






401 






402 
403 






404 






405 






406 






407 






408 






409 






410 


001236 




411 






412 






413 






414 






415 


001236 


015712 


416 


001240 


016124 


417 


001242 


016272 


418 


001244 


000000 


419 






420 






421 


001246 


015731 


422 


001250 


016141 


423 


001252 


016300 


424 


001254 


000000 


425 






426 






427 


001256 


015757 


428 


001260 


016141 


429 


001262 


016300 


430 


001264 


000000 


431 






432 






433 


00126t> 


016020 


434 


001270 


016141 


435 


001272 


016300 


436 


001274 


000000 


437 






438 






439 


001276 


016043 


440 


001300 


016176 


441 


001302 


016310 


442 


001304 


000000 


443 






444 






445 


001306 


016070 


446 


001310 


016234 


447 


001312 


016322 


448 


001314 


000000 


449 






450 






451 


001316 


016070 



,SBTTL ERROR POINTER TABLE 

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

I»THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

?»LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

;»NOTEl! IF SITEMB IS THE ONLY PERTINENT DATA IS (SERRPC), 

;«N0TE2! EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 

jjPOINTS TO THE ERROR MESSAGE 

jjPOINTS TO THE DATA HEADER 

;;POINTS TO THE DATA 

|?POINTS TO THE DATA FORMAT 



ALL NUMBERS ARE TYPED AS e-DIGlT OCTAL NUMBERS 



5* 


EM 


.« 


DH 


.* 


DT 




DF 


SERRTB: 




JNOTE: 


ALL 


;ITEM 


1 




EMI 




DHl 




DTI 







;ITEM 


2 




EM2 




DH2 




DT2 







;ITEM 


3 




EM3 




DH2 




DT2 







;ITEM 


4 




EM4 




DH2 




DT2 







jITEM 


5 




EMS 




DH5 




DT5 







JITEM 


6 




EM6 




DHb 




DT6 



J STATUS PROBLEM 
;PC TACS 
jSERRPC $REG0 



jREADY FAILED TO SET 

fPC TACS WAIT ADDRESS 

jSERRPC SREG0 SAVPC 



; TRANSFER REQUEST FAILED TO SET 
;PC TACS WAIT ADDRESS 
jSERRPC $REG0 SAVPC 



J THE WRONG FLAG SET 

;PC TACS WAIT ADDRESS 

;SERRPC SREG0 SAVPC 



jCOUNT PATTERN FAILED 
J PC TACS EXPECT 
jSERRPC SREG0 $GDDAT 



J DATA PROBLEM 
;PC TADB 
jSERRPC SREGl 



RCV'D 
SBDDAT 



jDATA PROBLEM 



TAU BASIC LOGIC TEST (PART 1) HAINDEC-1 l-DETAA^C 
DZTAAC.NEW ERROR POINTER TABLE 



452 


001320 


016176 


453 


001322 


016310 


454 


001324 


000000 


455 






456 






457 


001326 


016105 


458 


001330 


016251 


459 


001332 


016330 


460 


001334 


000000 


461 






462 


001336 




463 






464 


001336 


016350 


465 


001340 


016422 


466 


001342 


016336 


467 


001344 


000000 


468 






469 


001346 


016377 


470 


001350 


016437 


471 


001352 


016344 


472 


001354 


000000 


473 







,»C 


MACYll 27(732) 


ll-JUN»7b 


DH5 
DT5 



J PC TACS EXPECT 
JSERRPC SREG0 SGDDAT 


RCV'D 
SBDDAT 


10 

EM10 
DH10 
DTi0 


jADDRESS FAILED 
•PC ADDRESS 
jSERRPC SBDADR 
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EM201 
DH201 
DT201 



EM202 
DH202 
DT202 



jITEMS 201-202 

jTAll FAILED TO RESPOND 

J PC TACS 

jSERRPC TACS 

5BOTH NUMBERS ARE TYPED AS OCTAL NUMBERS 

jNO DRIVES AVAILABLE 

I PC 

jSERRPC 



TAU BASIC LOGIC TEST (PART 1) MAINDEC-i 1"DETAA-C 
DZTAAC.NEW START OF TEST 
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474 

475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 



01356 
01360 
0136b 
01374 
01376 
01404 
01406 
01410 
01414 
01416 
01422 
01424 
01430 



001430 
001434 
001436 
001442 
001444 

001450 
001456 
001464 
001472 
001500 
001506 
001514 
001522 
001530 
001536 
001542 
001546 
001554 
001562 



001570 
001574 
001602 
001610 
001616 
001624 



005005 
012737 
122737 
001015 
022737 
001011 
000403 
012705 
000405 
012705 
000402 
012705 



012706 
005026 
022706 
001374 
012706 

012737 
012737 
012737 
012737 
012737 
012737 
012737 
012737 
016767 
005W67 
005067 
112767 
012767 
012767 



013746 
012737 
012767 
0127fa7 
022777 
001012 



041101 

000005 



001100 

011232 
000340 
011504 
000340 
015322 
000340 
015406 
000340 
007424 
177424 
177422 



001554 
001562 



000004 
001630 
177570 
177570 
177777 



001224 
000041 



000260 001216 



000020 
000022 
000030 
000032 
000034 
000036 
000024 
000026 
007414 



177341 
177324 
177320 



177330 
177324 
177314 



J////////////////////////////////////////////////////////////////////// 

fBEGINl IS FOR NORMAL START 

;BEGIN2 IS FOP DRIVE SELECTION 

;BEGIN3 IS FOR DRIVE & ADDRESS SELECTION 

;BEGIN4 IS FOR MANUAL OPERATION 



BEGIN2: 

BEGIN3! 

BEGIN4; 
BGNCMN: 
.SBTTL 
;; CLEAR 



; J SIZE 
jjEQUAL 



01626 0iri0403 



CLR 

MOV 

CMPB 

BNE 

CMP 

BNE 

BR 

MOV 

BR 

MOV 

BR 

MOV 

INITI 

THE C 

MOV 

CLH 

CMP 

BNE 

MOV 
ALIZE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

CLR 

MOVE 

MOV 

MOV 
FOR A 

TO A 

MOV 

MOV 

MOV 

MOV 

CMP 

BNL 

BP 



R5 

S^AB^ggDRVKEY 

#5, ##41 

BGNCMN 

#260,9#TAVEC 

BGNCMN 

BEGIN3 

»1,R5 

BGNCMN 

#2,R5 

BGNCMN 

#3,R5 

ALIZE THE COMMON TAGS 
OMMON TAGS ($CMTAG) AREA 



?NORMAL START 

jCASSETTE DDP? 

;G0 BEGIN COMMON CODE IF NO 

jSTANDARD VECTOR? 

;G0 BEGIN COMMON CODE IF NO 

;GET DRIVES AND ADDRESSES 

;ASK FOR DRIVES FLAG 

;BEGIN COMMON CODE 

;ASK FOR DRIVES AND ADDRESSES 



SSCMTAGf R6 
(R6)+ J 

SSWR,R6 JJDONE? 
.-6 ; 

»STACK,SP ; 
FEW VECTORS 
#$SCOPE#^#IOTVEC 
#340,e#IOTVEC + 2 ', 
#$ERR0R,9#EMTVEC 
#340,p#EMTVEC+2 ; 
#$TRAP,0»TRAPVEC 



JFIRST LOCATION TO BE CLEARED 
jCLEAR MEMORY LOCATION 



jLOOP BACK IF NO 

jSETUP THE STACK POINTER 



jIOT VECTOR FOR SCOPE ROUTINE 
LEVEL 7 

•EMT VECTOR FOR ERROR ROUTINE 
LEVEL 7 

jTRAP VECTOR FOR TRAP CALLS 
#340,P#TRAPVEC+2?LEVEL 7 

#$PWRDN,3«PWRVEC jjPOWER FAILURE VECTOR 
#340#(a#PWPVEC + 2 ;;LEVEL 7 

$ENDCT,SEOPCT ;|SETUP END-OF«.PROGRAM COUNTER 
STIMES jjINITIALIZE NUMBER OF ITERATIONS 

SESCAPE jjCLEAR THE ESCAPE ON ERROR ADDRESS 

#1,SERMAX yiALLOW ONE ERROR PER TEST 
»,,$LPADR yjINITIALIZE THE LOOP ADDRESS FOR SCOPE 
»,,$LPERR ,-;SETUP THE ERROR LOOP ADDRESS 
HARDWARE SWITCH REGISTER, IF NOT FOUND OR IT IS 
"-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 
; jSAVE ERROR VECTOR 
;JSET UP ERROR VECTOR 

;jSETUP FOR A HARDWARE SWICH REGISTER 
;;AND A HARDWARE DISPLAY REGISTER 
yjTRY TO REFERENCE HARDWARE SWR 
;;BRANCH IF NO TIMEOUT TRAP OCCURRED 
;;AND THE HARDWARE SWR IS NOT = -1 
65$ ;;BRANCH IF NO TIMEOUT 



fa#ERPVEC,-(SP) 

#64S,9«ERRyEC 

#DSWR,SWP 

#DDISP, DISPLAY 

9-l,PSWR 

66$ 



TAU BASIC LOGIC TEST (PART 1) MAINDEC-U -DZTAA" 
DZTAAC.NEW INITIALIZE THE COMMON TAGS 
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530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 



001630 
001634 
001636 
001644 
001652 



001656 
001662 
001664 
001672 
001674 

001700 
001704 
001706 
001714 
001716 
001720 
001722 
001730 
001730 

001760 



31636 



012716 
000002 

012767 000176 
012767 000174 
012637 000004 



005227 177777 

001036 

022737 011200 

001432 

104401 001732 

005737 000042 



026727 
001005 
104405 
000403 
112767 

000413 



177274 
177270 



64$: 
65S: 
66S: 



177226 000176 



000001 177204 



MOV 
RTI 
MOV 

MOV 
MOV 



»65S,{SP) JJSET UP FOR TRAP RETURN 

#SWREG,SWR IJPOINT TO SOFTWARE SWR 

#DISPREG, DISPLAY 

(SP)+,§#ERRVEC jjPESTORE ERROR VECTOR 



.SBTTL TYPE PROGRAM NAME 

JSTYPE THE NAME OF THE PROGRAM IF FIRST PASS 
INC #-1 jjFIRST TIME? 

BNE HERE ;;BRANCH IF NO 

CMP »SENDAD,P#42 ;;ACT-11? 
BEQ HERE ; -BRANCH IF YES 

TYPE ,MSGID ?|TYPE ASCIZ STRING 

.SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 



67$: 
68$: 



TST 

BNE 

CMP 

BNE 

GTSWR 

BR 

MOVB 

BR 



?»42 
67$ 

SWR,«SWREG 
68$ 

68$ 
#1,SAUT0B 



;;ARE WE RUNNING UNDER XXDP/ACT? 

?;BRANCH IF YES 

JlSOFTWARE SWITCH REG SELECTED? 

jyBRANCH IF NO 

;;GET SOFT-SWR SETTINGS 

;;SET AUTO-MODE INDICATOR 



JSMSGID: 
HERE: 



HERE ;:GET OVER THE ASCIZ 

, ASCIZ <CRLF>/MAINDEC»11-DZTAA"C/<CRLF> 



TAil BASIC LOGIC TEST (PART I) MAINDEC«U»DETAA»C 
DETAAC^NEW GET VALUE FOR SOFTWARE SWITCH REGISTER 
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SS5 
5S6 
5S7 
558 
559 
560 
S61 
562 
563 
564 
S6S 
566 
567 
568 
569 
570 
571 
S72 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
5B7 
588 
589 
590 
591 
592 
593 
594 
595 
59b 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 



001760 
001762 
001764 
001766 
001772 
001774 
001776 



2002 
2010 
2012 
2016 
2020 
2022 
2024 
2032 
2034 
2036 
2040 
2044 
2046 
2050 
2054 
2056 
2062 



010504 
00530S 
002406 
004737 
00530S 
002402 
004717 



0i2n7 

005000 
005777 
000402 
005200 
022626 
012737 
005700 
001412 
104201 
012705 
005704 
001344 
013700 
001741 
000137 



I }#«■###««*###**«##»«#««»#*##»«■###»#»«###»##»«###»####«##*««#«»##« 

|THE CONTENTS OF BS DETERMINES WHAT WILL BE DONE 

I 

J R5SS3 NANUAL OPERATIONS 

? RSSS2 ASK FOR DRIVECS) AND ADDRESSES CTACS AND VECTOR) 

I RSssi ASK FOR DRIVECS5 

I R5s0 DON'T ASK FOB ANYTHING 



n 

BEGl 



NXl MOV 
DEC 
BLT 

asR 

DEC 
BLT 
JSfi 



R§iR4 

R5 

CHKADR 

PC,ia#ASKDRV 

RS 

CHKADR 

PC^SASKADR 



jCOP¥ R5 

jASK FOR DRIVES? 

IBR IF MO 

|G0 GET DRIVES TO BE TESTED 

?ASK FOR ADDRESSESI 

IBR IF NO 

jGO GET TAU ADDRESSES 









jCHECK THAT "TACS" WILL RESPOND TO ADDRESSING 

? 

jl, TIMEOUT OCCURRED 

I A. TYPE ERROR MESSAGE 

I B, EXAMINE R4 

J 1. R4>0 GOTO BEGINX 

J 2. R4ffi0 EXAMINE (42) 

f A, (425S0 GOTO BEGINX 

f B. (423>0 GOTO SENDAD 

; 

;II. TIMEOUT DIDN'T OCCUR 

• A. CONTINUE 



000006 000004 



002020 000004 CHKADRl MOV 
CLR 

177170 1ST 

BR 
IS! INC 
CMP 
2S: MOV 
TST 
BEQ 
ERROR 
MOV 
TST 
BNE 
MOV 
BEQ 
JMp 



#iS,gi§ERRVEC 



iTACSL 

2S 

R0 

(SP)-s-,(SP)-f- 

#ERRVEC+2#SSERRVEC 

P0 

3$ 

201 

»2,P5 

R4 

BEGINX 

P842,R0 

BEGINX 

i^$ENDAD 



J IN CASE OF TIMEOUTS 

fUSE AS A SWITCH 

;SEE IF TAIi RESPONDS 

|BR IF NO TIMEOUT 

jCOME HERE ON TIMEOUT 

jCLEANUP THE STACK 

IRESTORE TIMEOUT VECTOR 

|DID A TIMEOUT OCCUR? 

|BH IF NO 

jTAll FAILED TO RESPOND 

yORIVES & ADDRESSES 

•OPERATOR INPUTS? 

jBR IF YES 

|GET MONITOR RETURN ADDRESS 

jBR IF NO MONITOR 

•GO TO END 



' 



TAU BASIC LOGIC TEST (PART 13 MAlNDEC-ll »DETA A"C 
DETAAC,NEW GET VALUE FOR SOFTWARE SWITCH REGISTER 
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607 








608 








609 








610 








611 








612 








613 








614 








615 








616 








617 








618 








619 








620 








621 








622 








623 








624 








625 








626 








627 








628 


002062 


012700 


001224 


629 


002066 


004737 


013672 


630 


002072 


000410 




631 


002074 


116010 


000001 


632 


002100 


001412 




633 


002102 


004737 


013672 


634 


002106 


000407 




635 


002110 


005010 




636 


002112 


000405 




637 


002114 


005200 




638 


002116 


004737 


013672 


639 


002122 


i50040i 




640 


002124 


105010 




64i 


002126 


012700 


001224 


642 


002132 


010037 


001230 


643 


002136 


12,1060 


000001 


644 


002142 


001002 




645 


002144 


105060 


000001 


646 


002150 


005710 




647 


002152 


001401 




648 


002154 


000412 




649 


002156 


104202 




650 


002160 


012705 


000002 


651 


002164 


005704 




652 


002166 


001274 




653 


002170 


013700 


000042 


654 


002174 


001671 




655 


002176 


000137 


011200 


656 


002202 


020427 


000003 


657 


0022216 


001002 




658 


0022i0 


016704 


175563 


659 


002214 


010437 


001232 


660 


002220 


000405 




661 


002222 


104401 


001732 


662 


002226 


012737 


001224 



»»#«•«•«.»**«■«■#«*«»*•»«•*»«*»«■«■«■«•»*#«■»«•**** 



h»««.»»»«. «**«■»»» 



jMAKE SURE THE DRIVES IN THE DRIVE TABLE CAN BE TESTED 

I 

;l, DESIRED DRIVES CAN NOT BE TESTED 

• A, TYPE ERROR MESSAGE 

• B« EXAMINE B4 

• i« R4>0 GOTO BEGINX 

. 2. R4=0 EXAMINE (42) 

A. (42)=0 GOTO 

5 B. (423>0 GOTO 



EGINX 
ENDAD 



III, BOTH DRIVES IN THE TABLE BUT ONL 

; A, CLEAR BAD DRIVE FROM THE DRIV 

B, CONTINUE IN PROGRAM 



Y ONE OF THEM CAN BE TESTED 
£ TABLE 



1 T I I e 


DESIRED 


DRIVE(S3 CAN BE 1 


'f 


A, CONTINUE IN PROGRAM 


J.»*#** 




«•««•*■&•»««■»• «•»«**«#■»■« 


CHKDRV; 


MOV 


#DRVKEY,R0 




JSR 


PC,0#EXAM 




BR 


IS 




MOVB 


1(R03»(R0) 




BEQ 


2$ 




JSR 


PCasEXAM 




BR 


2S 




CLP 


CR0) 




BR 


2S 


ISI 


INC 


H0 




JSR 


PC»S|JEXAM 




BR 


2S 




CLRB 


CR0) 


2SS 


MOV 


#DRVKEY,R0 




MOV 


R0,a#DRVPNT 




CMPB 


(R0},1(R0) 




BNE 


3S 




CLRB 


1(R0) 


3SI 


TST 


(R0) 




BEQ 


5$ 




BR 


MANUAL 


5SS 


ERROR 


202 




MOV 


#2,P5 




TST 


R4 




BNE 


BEGINX 




MOV 


@#42,R0 




BEQ 


BEGINX 




JMP 


@^$ENDAD 


MANUALl 


CMP R4f 


#3 




BNE 


OK 




MOV 


-1,R4 


OKs 


MOV 


R4,§3fASKKE¥ 




BR START 


PWRSTS 


TYPE 


,MSGID 




MOV 


SDPVKEY,@#DRVPNT 



■»#»»»»*i 



fPlCKUP ADDRESS OF ASCII DRIVE KEY 

|G0 EXAMINE FIRST DRIVE 

;0K TO TEST"-«GO CHECK NEXT 

jREPLACE 1ST *J1TH 2ND 

|BR IF NO 2ND DRIVE SELECTED 

jGO EXAMINE DRIVE 

jOK TO TEST 

jCLEAR DRIVE CODES 

jPOINT TO 2ND 

|G0 EXAMINE DRIVE 

|0K TO TEST 

SCLEAR 2ND 

jRESET ADDRESS POINTERS 

flST s 2ND? 
jBR IF NO 
lYES-^'-CLEAR 2ND 
|ANY DRIVES? 
JBR IF NO 

jNO DRIVES AVAILABLE 

jDRIVES & ADDRESS 

^OPERATOR INPUTS? 

|BR IF YES 

jGET MONITOR RETURN ADDRESS 

jNO MONITOR 

•GO TO END 



•POWER FAIL RESTART 



TAil BASIC LOGIC TEST (PART 15 MaiNDEC«U»02TAA««C 
DETAAC.NEW GET VALUE FOR SOFTWARE SWITCH REGISTER 

MOV 

CLR 

MOV 

MOV 

MOV 

TSf 

BNE 

MOV 

TST 

BNE 

TYPE 

BF 

,&SCIE 
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663 


003234 


013777 


001220 176754 


664 


302242 


00S077 


176752 


665 


002246 


012737 


000340 177776 


666 


002254 


013704 


001206 


667 


002260 


013703 


001212 


668 


002264 


005737 


001100 


669 


002270 


001024 




670 


002272 


012737 


077777 012116 


671 


002300 


005737 


000042 


672 


002304 


001016 




673 


002306 


104401 


002314 


674 


002312 


000413 




675 








676 


002342 






677 


002342 


005037 


001102 


678 


002346 


005003 




679 


002350 


013701 


001230 


680 


002354 


121127 


000101 


681 


002360 


001402 




682 


002362 


012703 


000400 


683 


002366 






684 


002366 


104401 


002374 


685 


002372 


000411 




686 








687 


002416 






688 


002416 


112167 


176612 


689 


002422 


104401 


001234 


690 


002426 


104401 


001177 


691 


002432 


1057U 




692 


002434 


001002 




693 


002436 


012701 


001224 


694 


002442 


0101J7 


001230 


695 


002446 


005737 


001232 


696 


002452 


002007 




697 


002454 


005000 




698 


002456 


000000 




699 


002460 


022767 


000176 176452 


700 


002466 


001001 




701 


002470 


104405 




702 


002472 






703 








704 


002472 


005737 


000042 


705 


002476 


001406 




706 


002500 


010314 




707 


002502 


112714 


000017 


708 


002506 


032714 


000040 


709 


002512 


001775 





If65gl 
64SS 



} J65$S 
64$S 



CLR 

CLR 

MOV 

CMPB 

BEQ 

MOV 

TYPF 

BR 

„ASCIE 

MOVE 

TYPE 

TYPE 

TSTB 

BNE 

MOV 

MOV 

TST 

BGE 

CLR 

HALT 

CMP 

BNE 

GTSWR 



ISETUP TAli TRAP VECTOR 

iLOCKOUT ALL I/O INT 

ISETUP TACS 

JSETUP TADB 

fIF FIRST PASS SETUP FOR EXTRA LONG WAIT LOOPS 

fOTHERWiSE USE 9LD VALUES 



P»TAVEC*2#fTAVEC 

iTAVEC-l-a 

»340,i#PS 

®«TACSL»TACS 

@«TADBL,TADB 

f#SPASS 

1$ 

g^CBlTiS^iSMAXCNT 

f#42 fUNDEP MONITOR CONTROL? 

IS fSKIP TYPEOUT IF YES 

,65S IJTYPE ASCIZ STRING 

64S nGET OVER THE ASCIE 

<15><12>/DO A MANUAL REWIND/ 



f#$TSTNM 

DRIVE 

f»DRVPNT,Rl 

CRDf #'A 

TDRV 

#UNITrDRIVE 



rEERO THE TEST NUMBER 
jSET DRIVE TO «A« 
jGET DRIVE POINTER 
;IS IT DRIVE «A"? 
jBR IF YES 
jSET DRIVE TO "B" 



,65$ JfTYPE ASCIZ STRING 

64S ifGEI OVER THE ASCIE 

<15><12>»TEST1NG DRIVE « 



(Ri)-^,CURDRV 
jCURDRV 
,SCRLF 
(Rl) 

IS 

?JDRVKEY»R1 

R1,@#DRVPNT 

P«ASKKEY 

2$ 

R0 

«SlNREG,SWR 
20S 



20S! 

ITHIS 

2$! 



CODE IS FOR ACTU & OOP 



TST 

BEQ 

MOV 

MOVB 

BIT 

BEQ 



9#42 

TSTl 

DRIVE, PTACS 

#REWIND"GO#PTACS 

#READY*PTACS 

3$ 



ISETUP TO TYPE CURRENT DRIVE 

{TYPE A CR & LF 

jLAST DRIVE BEEN SELECTED 

J BR IF NO 

fRESET DRIVE POINTER 

fSAVE DRIVE POINTER FOR NEXT TIME 

;G0 START TESTING IF NO MANUAL 

; OPERATIONS REQUESTED 

5GIVE CONTROL TO THE OPERATOR 
jSOFTWABE SWITCH REG.? 
;N0 - LET HIM GO 
iGET NEW SWR VALUE 



;IS THERE A MONITOR? 
|G0 START TESTING IF NO 
|IF YES SELECT DRIVE 
;SEND TAPE TO BOT 
IWAIT ON READY 
jFALL THRU IF READY=1 
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710 
7U 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 



002514 
002516 
002524 
002530 
002536 
002540 
002542 
002550 
002552 
002556 
002564 
002570 

002572 
002576 
002602 



002610 
002612 
002620 
002624 
002632 
002634 
002636 
002644 
002646 
002652 
002660 
002664 

002666 
002672 
002676 



0004 
2767 
2706 
2737 
5014 
0420 
2737 
2626 
3746 
2737 
0437 



000004 
012767 
012706 
012737 
005015 
000420 
012737 
022626 
013746 
012737 
010537 
104010 



000001 
001100 
002542 



000030 
011516 
001122 



012637 000030 
000137 011124 
012737 000006 0000 



000030 
011516 
00U22 



I ////////////////////////////////////////////////////////////////////// 
I////////////////////////////////////////////////////////////////////// 

jTHE FOLLOWING TESTS WILL CHECK THE TAU 
JSTATUS (TACS) AND DATA BUFFER (TADB) REGISTERS 
JTO INSURE THAT THEY RESPOND TO ADDRESSING. 
?////////////////////////////////////////////////////////////////////// 

jTAll REGISTER ADDRESS TEST 

f INSURE THAT TACS RESPONDS TO ADDRESSING 

TEST IF TACS EXIST 



«TEST 
TST! 



000004 1$; 



I 

SCOPE 

MOV 

MOV 

MOV 

CLR 

BR 

MOV 

CMP 

MOV 

MOV 

MOV 

ERROR 

MOV 
JMP 
MOV 



• »*»««««•«•»«.«« 



; jDO 



#i,STIMES 

#STACK,SP 

#1$,§#ERRVEC 

gTACS 

2S 

SERRVEC+2,@»ERRVEC 

(SP)-«-,(SP)-s- 

§#EMTVEC,"(SP) 

3ERRORi,9SEMTVEC 

TACS,P#SBDADR 

10 

(SP)+,@#EMTVEC 

i#SEOP 

#ERRVEC*2*&#ERRVEC 



1 ITERATION 

jSETUP THE STACK POINTER 
JSETUP FOR BUS TIMEOUT 
JTACS ARE YOU THERE? 
;YES "" NO TRAP 
,• RESTORE TRAP CATCHER 
jCLEAN UP THE STACK 
jSETUP FOR THIS ERROR CALL 

fSKIP OVER THE SAVE OF TACS AND TADB 
;GET THE FAILING ADDRESS 
jERROR -- TIME OUT OCCURRED 
rWHEN ADDRESSING THE TACS REGISTER 
jRESTORE THE ERROR CALLS VECTOR 
;G0 TO END OF PROGRAM 
JRESTORE TRAP CATCHER 



«TEST 
• ■»«»» 
TST2: 



000001 
001100 
002636 



000006 000004 ISS 



012637 000030 
000137 01U24 
012737 000006 



2 

SCOPE 

MOV 

MOV 

MOV 

CLR 

BR 

MOV 

CMP 

MOV 

MOV 

MOV 

ERROR 

MOV 
JMP 
MOV 



fTAli REGISTER ADDRESS TEST 

; INSURE THAT TADB RESPONDS TO ADDRESSING 

TEST IF TADB EXIST 



#1,STIMES 

«STACK,SP 

#lS,g#ERRVEC 

§TADB 

2S 

»ERRVEC'l-2,f#ERRVEC 

{SP)-^,(SP)-e. 

fSEMTVEC-'-CSP) 

#ERR0R1,9«EMTVEC 

TADB,&#$BDADR 

10 

(SP)+,&»EMTVEC 

?»$EOP 

#ERRVEC+2,9#ERRVEC 



j;DO 1 ITERATION 

jSETUP THE STACK POINTER 

jSETUP FOR BUS TIMEOUT 

fTADB ARE YOU THERE? 

jYES — NO TRAP 

JRESTORE TRAP CATCHER 

jCLEAN UP THE STACK 

; SETUP FOR THIS ERROR CALL 

jSKIP OVER THE SAVE OF TACS AND TADB 
jGET THE FAILING ADDRESS 
J ERROR •»« TIME OUT OCCURRED 
J WHEN ADDRESSING THE TADB REGISTER 
JRESTORE THE ERROR CALLS VECTOR 
J GO TO END OF PROGRAM 
jRESTORE TRAP CATCHER 



TAll BASIC LOGIC TEST (PART 1) MAINDEC-1 1-DZTAA«.C 
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762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 



• •«•»»«»«»**#»«•»** 



002704 
002706 
002714 
002720 
002726 
002730 
002732 
002740 
002742 
002746 



012767 
012706 
012737 
105014 



012737 
022626 
013746 
012737 



002754 010437 

002760 104010 

002762 012637 

002766 000137 

002772 012737 



003000 
003002 
003010 
003014 
0'03022 
003024 
003026 
003034 
003036 
003042 
003050 
003054 

003056 
003062 
003066 



012767 
012706 
012737 
105015 
000420 
012737 
022626 
013746 
012737 
010537 

104010 

012637 
000137 
012737 



000030 
0U516 
001122 



000030 
011124 
000006 



000001 
001100 
003026 



000030 
011124 

000006 



;»TEST 
• • »**-»^ 
TST3: 



000001 
001100 

002732 



000006 000004 IS; 



000004 2S! 



3 

SCOPE 

MOV 

MOV 

MOV 

CLRB 

BR 

MOV 

CMP 

MOV 

MOV 

MOV 

ERROR 

MOV 
JMP 
MOV 



;TA1! REGISTER ADDRESS TEST 

•INSURE THAT TACS RESPONDS TO ADDRESSING 

TEST FOR LOW BYTE OF TACS 



#1,$TIMES 

#STACK,SP 

#1$,?#ERRVEC 

?TACS 

2$ 

#ERRVEC+2,gSERRVEC 

(SP)+,CSP)+ 

e#EMTVEC,-(SP) 

SERRORl,g»#EMfVEC 

TACS,8»$BDADR 

10 

CSP)4-f (?»EMTVFC 

&#$EOP 

#ERRVEC+2#?#ERRVEC 



jjDO i ITERATION 

JSETUP THE STACK POINTER 
jSETUP FOR BUS TIMEOUT 
jTACS ARE YOU THERE? 
;YES -- NO TRAP 
jRESTORE TRAP CATCHER 
jCLEAN UP THE STACK 
jSETUP FOR THIS ERROR CALL 

;SKIP OVER THE SAVE OF TACS AND TADB 
yGET THE FAILING ADDRESS 
jERROR -- TIME OUT OCCURRED 
•WHEN ADDRESSING THE TACS REGISTER 
J RESTORE THE ERROR CALLS VECTOR 
;G0 TO END OF PROGRAM 
; RESTORE TRAP CATCHER 



• »«»****»»«•««• 



;*TES 
• • »*» 

TST4! 



176156 

000004 



000006 000004 1$J 

000030 

011516 000030 

001122 



000004 2$: 



T 4 

SCOPE 

MOV 

MOV 

MOV 

CLRB 

BR 

MOV 

CMP 

MOV 

MOV 

MOV 

ERROR 

MOV 
JMP 

MOV 



jTAU REGISTER ADDRESS TEST 

•INSURE THAT TADB RESPONDS TO ADDRESSING 

TEST FOR LOW BYTE OF TADB 



#U$TIMFS 

#STACK,SP 

#1$,§#ERRVEC 

@TADB 

2S 

#ERRVEC + 2,iasERRVEC 

(SP)+,(SP)+ 

P#EMTVEC,-(SP) 

#ERRORl»^#EMTVEC 

TADB,P#SBDADR 

10 

(SP)+,e»EMTVEC 

?»SEOP 

#ERRVEC4-2»P#EPRVEC 



j;DO 1 ITERATION 

jSETUP THE STACK POINTER 
jSETUP FOR BUS TIMEOUT 
;TADB ARE YOU THERE? 
;YES --• NO TRAP 

RESTORE TRAP CATCHER 

CLEAN UP THE STACK 

SETUP FOR THIS ERROR CALL 

jSKIP OVER THE SAVE OF TACS AND TADB 

GET THE FAILING ADDRESS 

ERROR -- TIME OUT OCCURRED 

WHEN ADDRESSING THE TADB REGISTER 

RESTORE THE ERROR CALLS VECTOR 

GO TO END OF PROGRAM 

RESTORE TRAP CATCHER 



00307 4 000004 
003076 012767 
003104 012706 



1 176062 



}TAU REGISTER ADDRESS TEST 

J INSURE THAT TACSH RESPONDS TO ADDRESSING 

*TEST 5 TEST FOR HIGH BYTE OF TACS 

TST55 SCOPE 

MOV «l,$TrMES ;jDO 1 ITERATION 

MOV #STACf<,SP jSETUP THE STACK POINTER 
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818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 



003110 
003116 
003122 
003124 
003132 
003134 
003140 
003146 
003154 

003156 
003162 
003166 



003174 
003176 
003204 
003210 
003216 
003222 
003224 
003232 
003234 
003240 
003246 
003254 

003256 
003262 
003266 



012737 
105077 
000421 
012737 
022626 
013746 
012737 
016737 
104010 

012637 
000U7 
012737 



000004 
012767 
012706 
012737 
105077 
000421 
012737 
022626 
013746 
012737 
016737 
104010 

012637 
000137 
012737 



003124 
176066 



000006 000004 ISS 



000030 
011516 
176036 



000030 
011124 
000006 



000030 
011516 
175742 



000030 
011124 
000006 



000030 
001122 



MOV 


#lS,gSfERRVEC 


CLRB 


§TACSH 


BR 


2S 


MOV 


#ERRVEC+2,g#ERRVEC 


CMP 


(SP)+»(SP)* 


MOV 


(a#EMTVEC,»(SP) 


MOV 


»ERR0R1,§#EMTVEC 


MOV 


TACSH, P#SBDADP 


ERROR 


10 


MOV 


(SP)*,§#EMTVEC 


JMP 


P«$EOP 


MOV 


#ERRVEC-I-2»§#ERRVEC 



;SETUP FOR BUS TIMEOUT 
; TACSH ARE YOU THERE? 
;YES -- NO TRAP 
JRESTORE TRAP CATCHER 
jCLEAM up THE STACK 
jSETUP FOR THIS ERROR CALL 

jSKIP OVER THE SAVE OF TACS AND TADB 
;GET THE FAILING ADDRESS 
JERROR -" TIME OUT OCCURRED 
;WHEN ADDRESSING THE TACSH REGISTER 
; RESTORE THE ERROR CALLS VECTOR 
;G0 TO END OF PROGRAM 
jRESTORE TRAP CATCHER 



• »»«■*■»»■»*•»««■* 



•&TFST 
TST6: 



000001 
001100 
003224 
175772 



000006 000004 ISS 



000030 
001122 



000004 2SJ 



6 

SCOPE 

MOV 

MOV 

MOV 

CLRB 

BR 

MOV 

CMP 

MOV 

MOV 

MOV 

ERROR 

MOV 
JMP 
MOV 



fTAU REGISTER ADDRESS TEST 

J INSURE THAT TADBH RESPONDS TO ADDRESSING 

TEST FOR HIGH BYTE OF TADB 



#i,STIMES 

SSTACK,SP 

#iS,i#ERRVEC 

?TADBH 

2S 

#ERRVEC42,§#ERRVEC 

(SP)+,(SP)+ 

§SEMTVECf-CSP) 

#ERRORlf @#EMTVEC 

TADBH, iSSBDADR 

10 

(SP)+,§SEMTVEC 

§#SEOP 

#ERRVEC4-2(.§i#ERRVEC 



;|D0 ! ITERATION 

;SETUP THE STACK POINTER 
JSETUP FOR BUS TIMEOUT 
jTADBH ARE YOU THERE? 
;YES -"■ NO TRAP 
;RESIORE TRAP CATCHER 
jCLEAN UP THE STACK 
JSETUP FOR THIS ERROR CALL 

jSKIP OVER THE SAVE OF TACS AND TADB 
;GET THE FAILING ADDRESS 
jERROR -» TIME OUT OCCURRED 
jWHEN ADDRESSING THE TADBH REGISTER 
jRESTORE THE ERROR CALLS VECTOR 
jGO TO END OF PROGRAM 
JRESTORE TRAP CATCHER 
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DZTAAC, 


NEW 


T6 


TEST FOR HIGH 


855 










856 










857 










858 










859 










860 










861 










862 










863 


003274 


000004 






864 


003276 


012767 


003306 


175602 


865 


003304 


000005 






866 


003306 


032714 


040000 




867 


003312 


001401 






868 


003314 


104001 






869 










870 










871 










872 


003316 


000004 






873 


003320 


012767 


003330 


175560 


874 


003326 


000005 






875 


003330 


032714 


004000 




876 


003334 


001401 






877 


003336 


104001 






878 










879 










880 










881 


003340 


000004 






882 


003342 


012767 


003352 


175536 


833 


003350 


000005 






884 


003352 


032714 


002000 




885 


003356 


001401 






886 


003360 


104001 






887 










888 










889 










890 


003362 


000004 






891 


003364 


012767 


003374 


175514 


892 


003372 


000005 






893 


003374 


032714 


000400 




894 


003400 


001401 






895 


003402 


104001 






896 










897 










898 










899 


003404 


000004 






900 


003406 


012767 


003416 


175472 


901 


003414 


000005 






902 


003416 


032714 


000200 




903 


003422 


001401 






904 


003424 


104001 






905 










906 










907 










908 


003426 


000004 






909 


003430 


012767 


003440 


175450 


910 


003436 


000005 







f ////////////////////////////////////////////////////////////////////// 

;////////////////////////////////////////////////////////////////////// 

;THE FOLLOWING TESTS WILL CHECK THE INITIAL STATE OF ALL BITS 
;IN THE TACS THAT ARE NOT DpiVE DEPENDENT, 

• •»*#»«»*»**#»*•»••»«•»«»*■»»«•»«••»■»«■**«•*«■»»»«■»•»««•#»»«■«■»*«•»»■»■»*»*»*■»«•«•■»•» 
;»TEST 7 TEST INITIAL CONDITION OF TACS BIT14 = 

• •*»*»«*»«»*»»«*»*«»«•*»«•■»•»*«.*■»*»«»*»«■«»«■■»«■»■»»»#•»■«■■»««■•»«■*«•*«««■«*»•»* 
TST7! SCOPE 

MOV #1$,SLPADR ;;SET SCOPE LOOP ADDRESS 
RESET 
IS! BIT »BIT14,?TACS fIS BITi4 OF TACS s 0? 

BEQ TST10 ;;BR IF 5fES 

ERROR 1 jERROR — BIT14 OF TACS DIDN'T INITIALIZE PROPER 

j»TEST 10 TEST INITIAL CONDITION OF TACS BITll = 

TST10! SCOPE 

MOV #1$,$LPADR ;;SET SCOPE LOOP ADDRESS 

RESET 
IS! BIT #BIT11,9TACS ;IS BITll OF TACS = 0? 

BEQ TSTll ;;BR IF YES 

ERROR 1 jERROR -- BITll OF TACS DIDN'T INITIALIZE PROPER 

;«TEST 11 TEST INITIAL CONDITION OF TACS BIT10 = 

• • »«■»■»»»»»•»«■»»«•«*»«■**«**»■!«■»»«#*»»*»■»«*«*»»■»« S-*'^********-!!-******-*** 

TSTll! SCOPE 

MOV #1$,$LPADR ;;SET SCOPE LOOP ADDRESS 

RESET 
IS: BIT #BIT10,eTACS jIS BIT10 OF TACS = 0? 

BEQ TST12 JjBR IF YES 

ERROR 1 jERROR -- BIT10 OF TACS DIDN'T INITIALIZE PROPER 

j«TEST 12 TEST INITIAL CONDITION OF TACS BIT08 = 

TST12: SCOPE 

MOV #1S»$LPADR JJSET SCOPE LOOP ADDRESS 

RESET 
is: BIT #BIT08,§TACS ;IS BIT08 OF TACS = 0? 

BEQ TST13 JjBR IF YES 

ERROR 1 jERROR -- BIT08 OF TACS DIDN'T INITIALIZE PROPER 

;*TEST 13 TEST INITIAL CONDITION OF TACS BIT07 = 

TST13: SCOPE 

MOV #1S,$LPADR ;?SET SCOPE LOOP ADDRESS 

RESET 
IS: BIT #BIT07,§TACS ? IS 8IT07 OF TACS = 0? 

BEQ TST14 |;BR IF YES 

ERROR 1 jEPROR -•» BIT07 OF TACS DIDN'T INITIALIZE PROPER 

• •«■«■»»»«*»» ft*******-********* »#**##«■#«»*«•*«■*«»»»«•#»*«•#«■* «■***»«•«■»«« 
J*TEST 14 TEST INITIAL CONDITION OF TACS BIT06 s 

TST14: SCOPE 

MOV #1$,SLPADR ?;SET SCOPE LOOP ADDRESS 
RESET 
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DZTAAC.NEW 



TEST INITIAL CONDITION OF TACS BIT06 = 



911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 



003440 
003444 
003446 



003450 
003452 
003460 
003462 
003466 
003470 



003472 
003474 
003502 
003504 
003510 
003512 



003514 
003516 
003524 
003526 
003532 
003534 



003536 
003540 
003546 
003550 
003554 
003556 



003560 
003562 
003570 
003572 
003576 
003600 



032714 
001401 

104001 



012767 003462 175426 



03504 175404 



032714 
001401 
104001 



000004 
012767 
000005 
032714 
001401 
104001 



012767 003526 175362 

000005 

032714 000004 

001401 

104001 



000004 
012767 
000005 
032714 
001401 
104001 



000004 
012767 
000005 
032714 
001401 
104001 



003550 175340 



003572 175316 



IS: BIT #81T06,§TACS fIS BIT06 OF TACS - 0? 

BEQ TST15 JjBR IF liES 

ERROR 1 ;ERROR -- BIT06 OF TACS DIDN'T INITIALIZE I 

• • »*»*®-*»»»*»*-s-» «•*■»»«•■»«*«■#■»•■»«■#■»«#»«»»#«■*«•*»«■«■»•»•«■«•*«■*•»» »*««■«»**■»*«■ 
j«TEST 15 TEST INITIAL CONDITION OF TACS BIT04 = 

TST15: SCOPE 

MOV #lSf$LPADR JJSLT SCOPE LOOP ADDRESS 

RESET 

ISS BIT »BIT04,PTACS ,'IS BIT04 OF TACS - 0? 

BEQ TST16 JjBR IF YES 

ERROR 1 jERROR -» BIT04 OF TACS DIDN'T INITIALIZE I 

«TEST 16 TEST INITIAL CONDITION OF TACS BIT03 = 
J ■«■»*•»*»•»■»•»#■»«•»■»■»*«■«*«'»»**«■•»***»*«■»■*■»■»»■»»*»**********■»*** ******** 
TST16: SCOPE 

MOV »i$,SLPADR IJSET SCOPE LOOP ADDRESS 
RESET 
IS! BIT 8BIT03»iTACS ?IS BIT03 OF TACS = 0? 

BEQ TST17 IJBR IF YES 

ERROR 1 ;ERROR — B1T03 OF TACS DIDN'T INITIALIZE 1 

• I «.*«.«**•»»»»•»■»*«•«•*•»»»*»**■»#«««■«•■»»«*»«•»««****»*■»»***«•««*■»***«*«■«»* 
j»TEST 17 TEST INITIAL CONDITION OF TACS BIT02 s 

f ;»■»•■»«■»«*«»«•»«•■»«»*»***»«*»«■*«■««•*«■««■*«•»#**»■»««•*«*«»■**«■»«■**«■***•»■»«•«• 
TST17: SCOPE 

MOV #1$»SLPADR JJSET SCOPE LOOP ADDRESS 

IS! BIT #BIT02,3TACS ?IS BIT02 OF TACS s 0? 

BEQ TST20 yjBR IF YES 

ERROR 1 jERROR — BIT02 OF TACS DIDN'T INITIALIZE 1 

I ■»■»»»«•»»«■««■«»»«•«»««#»*«•«»»■»#«■»«•#«»»»»*#»*»***«■»»»**«■***■»*«■*»**** 
«TEST 20 TEST INITIAL CONDITION OF TACS BIT01 = 

TST20I SCOPE 

MOV #1S,$LPADR JJSET SCOPE LOOP ADDRESS 

RESET 
ISS BIT «BIT01,PTACS ;IS BIT01 OF TACS = 0? 

BEQ TST21 ,';BR IF YES 

ERROR 1 jERROR -» BIT0I OF TACS DIDN'T INITIALIZE 

I •«•»»#»»*«■■»»*»««■#«■«■»*■»«»«•«■»■»•»««»»*»«•»«■«»&«■»»»**«■»**»»»»*«■*■»*»*■»««■ 
;*TEST 21 TEST INITIAL CONDITION OF TACS BIT00 s 

• •«.**■&#»»»#*#«■»»#»#«•*»#«*««■»*■»■»«»«■»«■»■»•»»■»*■»»»*#«•«■■»■»*«•***«******** 
TST21S SCOPE 

MOV #1S»$LPADR J5SET SCOPE LOOP ADDRESS 
RESET 

IS! BIT »BIT00#9TACS ?IS 8IT00 OF TACS = 0? 

BEQ TST22 ?jBR IF YES 

ERROR 1 !ERROR »» BIT00 OF TACS DIDN'T INITIALIZE 



fl^ll BASIC LOGIC TEST iPk^i U MAINDIC-U^DITAA^G 



DETAAC, 


nm 


T2i 


TiST V 


9fe0 








961 








962 








963 








964 








96S 








966 








967 








966 








969 


001602 


000004 




970 


003604 


052714 


000400 


971 


003610 


032714 


000400 


972 


003614 


001001 




973 


003616 


104001 




974 








975 


003620 


042714 


000400 


976 


003624 


032714 


000400 


977 


003630 


001401 




978 


003632 


104001 




979 








980 








981 








982 


003634 


000004 




983 


003636 


012767 


000005 


984 


003644 


012714 


000400 


985 


003650 


032714 


000400 


986 


0036S4 


001001 




987 


003656 


104001 




988 








989 


003660 


000005 




990 


003662 


032714 


000400 


991 


003666 


001401 




992 


003670 


104001 




993 








994 








995 








996 


003672 


000004 




997 


003674 


052714 


000100 


998 


003700 


032714 


000100 


999 


003704 


001001 




1000 


003706 


104001 




1001 








1002 


003710 


042714 


000100 


1003 


003714 


032714 


000100 


1004 


003720 


001401 




1005 


003722 


104001 




1006 








1007 








1008 








1009 


003724 


000004 




1010 


003726 


012767 


000005 


1011 


003734 


012714 


000100 


1012 


003740 


032714 


000100 


1013 


003744 


001001 




1014 


003746 


104001 




1015 









TiST INITIAL CONDITION Of TAGS Bltm m 



MAC¥U I7C7325 ll«»aUN««76 iSsIS PASS 23 



SEQ 0037 



%/HfnfNititiNHNNHNiiNifNNfNn/iNNNNNNiNNfNNUfU 

pTHE FOLLOWING TESTS VALIDATES EACH READ/WRITE 
rBIT OF THE TACS FOR SETTING, CLEAPING, 
fAND XNITXALIEING 
MtfHfNUNUNiiNfUUtfnfnNUnNNfUNUfUUffNUfnUiUN 

f I »»#■»#*###*«#**»»»#»#»#©»»»«»«»»#«'«»###»»«##»»»«»«#»»#»»»««««»*« 
j»TEST 22 TEST BIT0B OF TACS MAY BE "SET" AND ''CLEARED" 

TST22I SCOPE 

BIS #BIT08#PTACS ISET BIT08 OF TACS 

BIT #BIT08,®TACS |DID BIT08 SET? 

BNE is JBR IF YES 

ERROR i ?BIT08 FAILED TO SET 



|NOW CLEAR IT 
fDlD BIT08 CLEARI 
IjSR IF tZS 

?ERROR -» BIT08 OF TACS FAILED TO CLEAR 

j«TEST 23 TEST BIT08 OF TACS INITIALIZE TO ZERO 

J I »»*»#»»•»»»»»#*#«*»«»#»#»«*#«»«##»«■#»*««■»»»#»»»#«■»*#«##««#»#»*<*# 

TST23I SCOPE 

If DO 5 ITERATIONS 

fSET BIT0S OF TACS 

JDID B1T08 SET? 

JBR IF YES 

|BIT08 FAILED TO SET 



\%% 



%%% 



BXC 
BIT 

BEQ 
ERROR 



MOV 
MOV 
BIT 
BNE 
ERROR 



#BIT08?@TACS 

#BIT08*PTACS 

TST23 

i 



#5,$TIMES 

#BIT08»PTACS 

#B1T08,@TACS 

2S 
1 



2Si 



j*TEST 
TST24! 



RESET 
BIT 
BEQ 
ERROR 

24 

SCOPE 

BIS 

BIT 

BNE 

ERROR 

BIC 
BIT 

BEQ 
ERROR 



ICLEAR THE WORLD 

»BIT08,PTACS jDID BIT08 CLEARI 

TST24 I |BR IF YES 

1 jERROR -- RESET DIDN'T CLEAR BIT08 

*■«•«■#*#*■»««»»#»»■»*•»»«■«■»#»«■«•«»»■»»#»«•»»» »»»###*#»#«® #45' 

TEST BIT06 OF TACS MAY BE "SET" AND "CLEARED" 

»BIT06,PTACS fSET BIT06 OF TACS 

#BIT0fe»?lACS iDID 8IT06 SET! 

iS J BR IF YES 

i JBIT06 FAILED TO SET 

#BIT06,@TACS JNOW CLEAR IT 

#BIT06»§TACS fDID BIT06 CLEAR? 

TST25 ||8R IF YES 

I lERROR «» BIT06 OF TACS FAILED TO CLEAR 



j»TEST 25 TEST BIT06 OF TACS INITIALIZE TO ZERO 

• }»##«##»»««»»«»»»«•»*»»»«»#«««««.«»««##»«■»»»«»»»««« »^*'»»»*«*# «•«»##« 

;D0 5 ITERATIONS 

jSET BIT06 OF TACS 
fDID BIT06 SET? 
jBR IF YES 
?BIT06 FAILED TO SET 



SCOPE 




MOV 


S5f STIMES 


MOV 


#BIT06,0TACS 


BIT 


#BIT06,^TACS 


BNE 


2S 


ERROR 


1 



TAll BASIC LOGIC TEST (PART I) MAlNDEC-l 1«DZTAA«.C 
DZTAAC.NEW T25 TEST BIT06 OF TACS INITIALIZE TO ZERO 



MACYU 27(732) 11»JUN»76 15sl5 PAGE 24 



1016 


003750 


000005 




1017 


003752 


032714 


000100 


1018 


003756 


001401 




1019 


003760 


10400! 




1020 








1021 








1022 








1023 


003762 


000004 




1024 


003764 


052714 


000020 


1025 


003770 


032714 


000020 


1026 


003774 


001001 




1027 


003776 


104001 




1028 








1029 


004000 


042714 


000020 


1030 


004004 


032714 


000020 


1031 


004010 


001401 




1032 


004012 


104001 




1033 








1034 








1035 








1036 


004014 


000004 




1037 


004016 


012767 


000005 


1038 


004024 


012714 


000020 


1039 


004030 


032714 


000020 


1040 


004034 


00100! 




1041 


004036 


104001 




1042 








1043 


004040 


000005 




1044 


004042 


032714 


000020 


1045 


004046 


001401 




1046 


004050 


104001 




1047 








1048 








1049 








1050 


004052 


000004 




1051 


004054 


052714 


000010 


1052 


004060 


032714 


000010 


1053 


004064 


001001 




1054 


004066 


104001 




1055 








1056 


004070 


042714 


000010 


1057 


004074 


032714 


000010 


1058 


004100 


001401 




1059 


004102 


104001 




1060 








1061 








1062 








1063 


004104 


000004 




1064 


004106 


012767 


000005 


1065 


004114 


012714 


000010 


1066 


004120 


032714 


000010 


1067 


004124 


001001 




1068 


004126 


104001 




1069 








1070 


004130 


000005 




1071 


004132 


032714 


000010 



»TEST 
TST26S 



RESET 

BIT 

BEQ 

ERROR 
«■»«••» 
26 

SCOPE 

BIS 

BIT 

BNE 

ERROR 



fCLEAR THE WORLD 
#8iT06,§TACS fOID 8IT06 CLEAR? 

TST26 ijBR IF YES 

1 jERROR -•» RESET DIDN'T CLEAR BIT06 

TEST BIT04 OF TACS MAY BE "SET" AND "CLEARED" 



• «■»#»■ 
*TEST 

• ■»*»»■ 
TST27! 

US 



BIC 
BIT 

BEQ 
ERROR 

27 

SCOPE 

MOV 

MOV 

BIT 

BNE 

ERROR 



#BIT04,PTACS 

#BIT04,PTACS 

1$ 

1 

#BIT04f PTACS 
#BIT04f 0TACS 
TST27 
1 



fSET BIT04 OF TACS 
;DID BIT04 SET? 
fBR IF YES 
fBIT04 FAILED TO SET 

;NOW CLEAR IT 
;DID BIT04 CLEAR? 
jfBR IF YES 

; ERROR — BIT04 OF TACS FAILED TO CLEAR 



TEST BIT04 OF TACS INITIALIZE TO ZERO 



#5,STIMES 

#BlT04,eTACS 

#BIT04,PTACS 

2S 

I 



ITERATIONS 
;SET B1T04 OF TACS 
;DID BIT04 SET? 
?BR IF YES 
JB1T04 FAILED TO SET 



«TEST 

TSf30S 



RESET 
BIT 
BEQ 
ERROR 

30 

SCOPE 

BIS 

BIT 

BNE 

ERROR 

BIC 
BIT 
BEQ 
ERROR 



ICLEAR THE WORLD 

»BIT04f0TACS iDID BIT04 CLEAR? 

TST30 fsBR IF YES 

1 jERROR -» RESET DIDN'T CLEAR BIT04 

TEST BIT03 OF TACS MAY BE "SET" AND "CLEARED" 

#BIT03,@TACS fSET BIT03 OF TACS 

#BIT03»gTACS fDID BIT03 SET? 

1$ fBR IF YES 

1 fBIT03 FAILED TO SET 

«8IT03»§TACS fNOW CLEAR IT 

#8IT03»?TACS fDID BIT03 CLEAR? 

TST31 fiBR IF YES 

1 fERROR •>« BIT03 OF TACS FAILED TO CLEAR 



|#TEST 31 TEST BIT03 OF TACS INITIALIZE TO ZERO 
TST31! SCOPE 



MOV 
MOV 
BIT 
BNE 
ERROR 

RESET 
BIT 



#5»STIMES 

#BIT03»iTACS 

SBIT03f@TACS 

2S 

1 



»BIT03#fTACS 



llDO 5 ITERATIONS 

fSET BIT03 OF TACS 

fDID BIT03 SET? 
fBR IF YES 
|BIT03 FAILED TO SET 

fCLEAR THE MORLD 

fDID 8IT03 CLEAR? 



TAll BASIC LOGIC TEST (PART 1) MAINDEC^U-DETAA-C 
DETAACNEW T3i TEST BIT03 OF TACS INITIALIZE TO ZERO 
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1072 
1073 
107 4 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107. 
1108 
1109 
1110 

nil 

1112 
1113 
1114 
1115 
U16 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 



004136 
004140 



004142 

004144 052714 

004150 032714 

004154 001001 

004156 104001 

004160 042714 

004164 032714 

004170 001401 

004172 104001 



004174 
004176 
004204 



004232 
004234 

004240 
004244 
004246 

004250 
004254 
004260 
004262 



004264 
004266 
004274 
004300 
004304 
004306 

004310 
004312 
004316 
004320 



000004 
052714 
032714 
001001 
104001 

042714 
032714 

001401 

104001 



000004 
012767 
012714 
032714 

001001 
104001 



032714 
001401 
104001 



*TEST 3 
TST32! 



000004 
012767 
012714 



000004 
000004 



000005 174762 



ISS 



004210 032714 

004214 001001 

004216 104001 

004220 000005 

004222 032714 

004226 001401 

004230 104001 



000002 
000002 



000002 
000002 



000005 
000002 
000002 



BEQ 
ERROR 

■»*»*#*■ 
2 

SCOPE 

BIS 

BIT 

BNE 

ERROR 



BIC 
BIT 
BEQ 
ERROR 

;*TEST 33 

• J »»«■»*■»»»*»»# 
TST33S SCOPE 

MOV 
MOV 
BIT 
BNE 
ERROR 

2$S RESET 
BIT 
BEQ 
ERROR 

I •#»»»*#»*«^««-* 

f«fEST 34 

• s »«■»«■*#»*«■««* 
TST34S SCOPE 

BIS 
BIT 
BNE 
ERROR 



TST32 IJBR IF YES 

1 jERROR "- RESET DIDN'T CLEAR BIT03 

TEST BIT02 OF TAGS MAY BE "SET" AND "CLEARED" 



#BIT02i?§TACS 

#BIT02»0TACS 

IS 

1 

#BIT02»PTACS 

#BIT02#fTACS 

TST33 

1 

TEST BIT02 OF TACS INITIALIZE TO ZERO 



;SET BIT02 OF TACS 
;DID BIT02 SET? 
IBR IF YES 
;BIT02 FAILED TO SET 

jNOW CLEAR IT 
;DID BIT02 CLEAR? 
jBR IF YES 

fERROR — BIT02 OF TACS FAILED TO CLEAR 



ISl 



#5,$TIMES 

#BIT02,iTACS 

#BIT02,§TACS 

2S 

1 



ITERATIONS 
jSET BIT02 OF TACS 
?DID BIT02 SET? 
,'BR IF YES 
;BIT02 FAILED TO SET 



JCLEAR THE WORLD 
SBIT02,?fACS jDID BIT02 CLEAR? 

T5T34 ?|BR IF YES 

1 lERROR «» RESET DIDN'T CLEAR BIT02 

TEST BIT01 OF TACS MAY BE "SET" AND "CLEARED" 



i$: 



BIC 
BIT 
BEQ 
ERROR 

• $»»*■»»•»«■«»«■»» 

;»TEST 35 

TST35! SCOPE 
MOV 



#BIT01,@TACS 
#BIT01,?TACS 
1$ 



#BIT0i,@TACS 

#BIT0WiTACS 

TST35 

1 



;SET BIT01 OF TACS 
?DID BIT01 SET? 
jBR IF YES 
;BIT01 FAILED TO SET 

jNOW CLEAR IT 
jDID 8IT01 CLEAR? 
If BR IF YES 

jERROR -» BIT01 OF TACS FAILED TO CLEAR 



TEST BIT01 OF TACS INITIALIZE TO ZERO 



IS? 



MOV 
BIT 
BNE 
ERROR 



#5»STIMES 

#BIT01,§TACS 

#BIT01,9TACS 

2S 

1 



BIT «BIT0UPTACS 
BEQ TST36 
ERROR 1 



f JDO 5 ITERATIONS 

JSET BIT01 OF TACS 
;DID BIT01 SET? 
;8R IF YES 
JBIT01 FAILED TO SET 

;CLEAR THE WORLD 
jDlD B1T01 CLEAR? 
?;BR IF YES 

;ERROR --» RESET DIDN'T CLEAR BIT01 



TAll BASIC LOGIC TEST (PART 1) MAINDEC-1 1»DZTAA».C 
DZTAAC.NEW T36 COUNT PATTERN TO TACS<04|01> 
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1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 



004322 
004324 
004332 
004334 
004336 
004342 
004344 
004350 
004352 
004354 
004356 
004360 
004362 
004366 



000004 
012767 
005014 



012702 
011401 
042701 

020100 
001401 
104005 
060200 
060214 
032700 
001365 



j*TEST 36 COUNT PATTERN TO TACS<04:01> 



004370 174636 



SCOPE 






MOV 


#TST37,SESCAPE 


i;ESCAPE TO TEST 37 ON ERROR 


CLR 


§TACS 


jSETUP TACS FOR COUNTING 


CLR 


R0 


,• SETUP R0 FOR COUNTING 


MOV 


#2,R2 


;SET THE INCREMENT 


MOV 


§TACS,R1 


J GET TACS 


BIC 


I*C36»R1 


jCLEAR THE JUNK 


CMP 


R1,R0 


jCOUNT OK? 


BEQ 


2S 


;BR IF YES 


ERROR 


5 


;ERROR"-BAD COUNT 


ADD 


R2,R0 


jUPDATE R0 


ADD 


R2»?TACS 


yCOUNT TACS 


BIT 


#36rR0 


JREADY? 


BNE 


1$ 


;NO--GO DO TEST COUNT PATTERN 



TAtl BASIC LOGIC TEST (PART t) MAINDEC-1 1»DZTAA-C 
DZTAACNEW T36 COUNT PATTERN TO TACS<04!01> 
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1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 



004370 
004372 



jTHE FOLLOWING TESTS WILL CHECK THE INITIAL STATE OF ALL BITS 
;IN THE TACS THAT ARE DRIVE AND FUNCTION DEPENDENT, 
jNOTES FOR ALL OF THESE TEST TO PASS 
jTHE DRIVE UNDERGOING TEST MUST BE 

ON CLEAR LEADER AND WRITE ENABLED, 

////////////////////////////////////////////////////////////////////// 

*TEST 37 TEST INITIAL CONDITION OF TACS BIT05 = 1 
TST37! 



012767 004404 174506 



004410 
004412 



004414 
004416 
004424 
004426 
004430 
004434 
004436 



004440 
004442 
004450 
004452 
004454 
004460 
004464 
004466 



004470 
004472 
004500 
004502 
004504 
004510 
004512 



004514 
004516 
004524 
004526 



010314 
032714 

001001 

104001 



000004 
012767 
000005 
010314 
032714 
001401 
104001 



004430 174462 



012767 
000005 
010314 
052714 
032714 
001401 
104001 



012767 
000005 
010314 
032714 
001001 
104001 



1$! 



SCOPE 




MOV 


S1$,$LPADR 


RESET 




MOV 


DRIVE, 3TACS 


BIT 


#BIT05,^TACS 


BNE 


TST40 


ERROR 


1 



jSET SCOPE LOOP ADDRESS 



1? 



|BR 



jSELECT DRIVE 
;IS BIT05 OF TACS 
IF YES 

jERROR -" BIT05 OF TACS DIDN'T INITIALIZE PROPER 

?»TEST 40 TEST INITIAL CONDITION OF TACS BIT09 = 

TST40! SCOPE 

J, 'SET SCOPE LOOP ADDRESS 



1$ 



MOV 

RESET 

MOV 

BIT 

BEQ 

ERROR 



#1$,SLPADR 



DRIVE, 9TACS jSELECT DRIVE 

«BIT09,?TACS ;IS BIT09 OF TACS = 0? 

TST41 ffBR IF YES 

1 ;ERROR -- BIT09 OF TACS DIDN'T INITIALIZE PROPER 

*TEST 41 TEST INITIAL CONDITION OF TACS BIT12 = 



TST41! 



004460 174436 



000002 
010000 



004504 174406 



SCOPE 




MOV 


#1S,SLPADR 


RESET 




MOV 


DRIVE, 9TACS 


BIS 


SWPITE,?TACS 


BIT 


#BIT12,eTACS 


BEQ 


TST42 


ERROR 


1 



;SET SCOPE LOOP ADDRESS 



JSELECT DRIVE 
jLOAD WRITE FUNCTION 
1S5 BIT #BIT12,eTACS ;IS BIT12 OF TACS = 0? 

JfBR IF YES 

{ERROR »- BIT12 OF TACS DIDN'T INITIALIZE PROPER 

;*TEST 42 TEST INITIAL CONDITION OF TACS B1T13 s I 

TST42! 



jfl$,$LPADR 



IS 



SCOPE 

MOV 

RESET 

MOV 

BIT 

BNE 

ERROR 1 



jSET SCOPE LOOP ADDRESS 



DRIVE, 9TACS 

#81T13,saTACS 

TST43 



012767 004530 174362 



JSELECT DRIVE 
;IS BIT13 OF TACS = 1? 
;BR IF YES 

5ERROR -» BIT13 OF TACS DIDN'T INITIALIZE PROPER 

««■««■«*»««■#«*»■»«.**«■«■■»#»**»#«* SiS-*** 

*TEST 43 TEST INITIAL CONDITION OF TACS BIT15 = 1 

TST43! SCOPE 

MOV #1$,$LPADR ;jSFT SCOPE LOOP ADDRESS 

RESET 

MOV DRIVE, iTACS jSELECT DRIVE 



TAU BASIC LOGIC TEST (PART 1) MAINDEC-1 i-DZTAA»C 
DZTAAC.NEW T43 TEST INITIAL CONDITION OF TACS BIT15 
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1 



1202 004530 032714 100 

1203 004534 001001 

1204 004536 104001 



BIT #BIT15,?TACS 
BNE TST44 
ERpOR 1 



JIS BIT15 OF TACS = 1? 
jjBR IF YES 

jERROR -- BIT15 OF TACS DIDN'T INITIALIZE PROPER 



TAll BASIC LOGIC TEST 
DZTAAC.NEW T43 



(PART U MAINDEC-U-DETAA-C 

TEST INITIAL CONDITION OF TACS BIT15 = 1 
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1207 








1208 








1209 








1210 








1211 








1212 








1213 








1214 








1215 








1216 


004540 


000004 




1217 


004542 


012767 


004552 174336 


1218 


004550 


000005 




1219 


004552 


011400 




1220 


004554 


010001 




1221 


004556 


005101 




1222 


004560 


042700 


077777 


1223 


004564 


042701 


077777 


1224 


004570 


010114 




1225 


004572 


011401 




1226 


004574 


042701 


077777 


1227 


004600 


020001 




1228 


004602 


001401 




1229 


004604 


104001 




1230 








1231 








1232 








1233 








1234 








1235 








1236 


004606 


000004 




1237 


004610 


012767 


004620 174270 


1238 


004616 


000005 




1239 


004620 


011400 




1240 


004622 


010001 




1241 


004624 


005101 




1242 


004626 


042700 


137777 


1243 


004632 


042701 


137777 


1244 


004636 


010114 




1245 


004640 


011401 




1246 


004642 


042701 


137777 


1247 


004646 


020001 




1248 


004650 


001401 




1249 


004652 


104001 




1250 








1251 








1252 








1253 








1254 








1255 








1256 


004654 


000004 




1257 


004656 


012767 


004666 174222 


1258 


004664 


000005 




1259 


004666 


011400 




1260 


004670 


010001 





J////////////////////////////////////////////////////////////////////// 

;THE FOLLOWING TESTS CHECKS EACH READ ONLY 

;BIT OF THE TACS FOR READ ONLY CAPABILITY 

J////////////////////////////////////////////////////////////////////// 

• •■»»«'»»»«*»*«»»»»»»*»»*»»»»*»**»»»»»-»»»»*«**»'»»»«^»»**»»#*#*»*»»«» 

;THIS TEST WILL TRY TO CHANGE THE STATE OF BIT15. 
jTHEN CHECK IT TO SEE IF IT CHANGED, 

• •*«■»»«■»**««»*»»■»«•»«■»»»■»■»»■»»«*•»«»**«■■»*»«•■»•»■•»■«•*»«**■»«■»*■»#**#*■»»•»»■»■» 
?*TEST 44 TEST TACS BIT15 IS READ ONLY 

• •»*»#*»»»■»»»*»•»»#»«»«#*»«•»«* »«^#»»*»»-»»*» ■»■»#«■»«•»«*«■«••»•■»«•«••&** *•»»«■*» 
TST44! SCOPE 

«1S,SLPADR yjSET SCOPE LOOP ADDRESS 

{INITIALIZE ALL BITS 



ISS 



HOV 

RESET 

MOV 

MOV 

COM 

BIC 

BIC 

MOV 

MOV 

BIC 

CMP 

BEQ 

ERROR 



§TACS#R0 

R0rRi 

Rl 

»*C<BIT15>,R0 

#"C<BIT15>,R1 

RlrPTACS 

gTACSfRl 

#"C<BITi5>,Rl 

R0»R1 

TST45 

1 



;GET TACS FOR COMPARING 
;PUT STATUS IN Ri 
{COMPLEMENT Rl 
jGET RID OF UNDESIRED BITS 

JTRY TO CHANGE BIT15 
jREAD IT BACK 
;ONLY LOOK AT BIT15 
;DID IT CHANGE? 



fjBR IF NO 



jERROR — BIT15 CHANGED 



jTHIS TEST WILL TRY TO CHANGE THE STATE OF BIT14. 
•THEN CHECK IT TO SEE IF IT CHANGED, 

;»TEST 45 TEST TACS BIT14 IS READ ONLY 

TST45! SCOPE 

j;SET SCOPE LOOP ADDRESS 

{INITIALIZE ALL BITS 



1$: 



MOV 


mS^SLPADR 


RESET 




MOV 


@TACS,R0 


MOV 


R0»RI 


COM 


Rl 


BIC 


»"C<BIT14> 


BIC 


#*C<BIT14> 


MOV 


Rlf (3TACS 


MOV 


9TACS,R1 


BIC 


»"C<8IT14> 


CMP 


R0,R1 


BEQ 


TST46 


ERROR 


1 



{GET TACS FOR COMPARING 
{PUT STATUS IN Rl 
{COMPLEMENT Rl 
{GET PID OF UNDESIRED BITS 



{TRY TO CHANGE BITi4 
{READ IT BACK 
Rl {ONLY LOOK AT BIT14 

{DID IT CHANGE? 
{{BR IF NO 

{ERROR -- BIT14 CHANGED 

• { #«»#«*»»»***#«■»»*«(•*«•«•»«•»*»«■»*«■«■■»#«•*«■ ^j-ft*-*************.***** «•«**#«• 

{THIS TEST WILL TRY TO CHANGE THE STATE OF BIT13. 
{THEN CHECK IT TO SEE IF IT CHANGED. 

• {«»*»*■»««•»«•*««•*#»■»»«#»»*»■»*•»«*«•»«■#«■»«■*»«»■»•»*•»»«•««•»«■*«»««•#**»«■»«* 
{»TEST 46 TEST TACS BIT13 IS READ ONLY 

{ { «•*»«■»«#***«■»»«*■»»»#»««•*•»»»*»«•*«■«««•«■«■««■»*«■»•»«*«■«■ **#»*«»«-»#»««'«'»» 
TST46J 

{{SET SCOPE LOOP ADDRESS 

{INITIALIZE ALL BITS 
{GET TACS FOR COMPARING 
{PUT STATUS IN Ri 



SCOPE 




MOV 


#1S,$LPADR 


RESET 




MOV 


gTACS,R0 


MOV 


R0rRl 



TAU BASIC LOGIC TEST (PART 1) MAINDEC-1 1-DZTAA»C 
DZTAAC.NEW T46 TEST TACS BIT13 IS READ ONLY 
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1261 


004672 


005101 




1262 


004674 


042700 


157777 


1263 


004700 


042701 


157777 


1264 


004704 


010114 




1265 


004706 


011401 




1266 


004710 


042701 


157777 


1267 


004714 


020001 




1268 


004716 


001401 




1269 


004720 


104001 




1270 








1271 








1272 








1273 








1274 








1275 








1276 


004722 


000004 




1277 


004724 


012767 


004734 174154 


1278 


004732 


000005 




1279 


004734 


011400 




1280 


004736 


010001 




1281 


004740 


005101 




1282 


004742 


042700 


167777 


1283 


004746 


042701 


167777 


1284 


004752 


010114 




1285 


004754 


011401 




1286 


004756 


042701 


167777 


1287 


004762 


020001 




1288 


004764 


001401 




1289 


004766 


104001 




1290 








1291 








1292 








1293 








1294 








1295 








1296 


004770 


000004 




1297 


004772 


012767 


005002 174106 


1298 


005000 


000005 




1299 


005002 


011400 




1300 


035004 


010001 




1301 


005006 


005101 




1302 


005010 


042700 


173777 


1303 


005014 


042701 


173777 


1304 


005020 


010114 




1305 


005022 


011401 




1306 


005024 


042701 


173777 


1307 


005030 


020001 




1308 


005032 


001401 




1309 


005034 


104001 




1310 








1311 








1312 








1313 








1314 








1315 








1316 


005036 


000004 





COM 


PI 




BIC 


#-C<BIT13>, 


R0 


BIC 


#-C<BIT13>. 


Rl 


MOV 


R1,9TACS 




MOV 


§TACSfRl 




BIC 


#~C<BIT13>, 


Rl 


CMP 


R0#R1 




BEQ 


TST47 




ERROR 


1 





{COMPLEMENT Rl 

{GET RID OF UNDESIRED BITS 

{TRY TO CHANGE BIT13 
{READ IT BACK 
{ONLY LOOK AT BIT13 
{DID IT CHANGE? 
{BR IF NO 

{ERROR "- B1T13 CHANGED 
{ ■ »#*«■««»«•»«•«•*«■»«»«•■»»«»»*»««»*•»»•»«■*»««■»«*»•»«»»»»»«■«»*»«•*■»*»»*«•#««• 
{THIS TEST WILL TRY TO CHANGE THE STATE OF BIT12, 
{THEN CHECK IT TO SEE IF IT CHANGED, 
{ {»•»■»■»*» *»»»#»#**«-##««-»**»»#»»»*»«»»««»**-»»»«-»»»»»*»*«#**«*#*»*«* 
{«TEST 47 TEST TACS BIT12 IS READ ONLY 

{ I ^}»»»»«»»«-»«'«-»«»»«»»»**»«»«'«»*»» «■««»**•»*»#«»»««■*»■»«•*# *«•#«*«»»«** 
TST47J SCOPE 

{{SET SCOPE LOOP ADDRESS 

{INITIALIZE ALL BITS 
is: MOV @TACS,R0 {GET TACS FOR COMPARING 

{PUT STATUS IN Rl 
{COMPLEMENT Rl 
{GET RID OF UNDESIRED BITS 

{TRY TO CHANGE BIT12 
{READ IT BACK 
{ONLY LOOK AT BIT12 
{DID IT CHANGE? 
{BR IF NO 

{ERROR «" 8IT12 CHANGED 

{ {»»«»*»4S'»#***«»»*# »««■**«.*»«■«#« »«•««»*#*■»»»«■«»»«•»««■**»»■»*■»»»#■»•»■»■»# 

{THIS TEST WILL TRY TO CHANGE THE STATE OF BiTll. 
{THEN CHECK IT TO SEE IF IT CHANGED, 
{ {«««••»»» »*®»»«'»»»#»» «■»■»■»»»»»»•»■»»■» »«•»■»*»»»»#•«■« *»*#*«■«•*»»««■«#»»##««• 
{«TEST 50 TEST TACS BITU IS READ ONLY 

{ { »#»»■»**»»»«»»»*«»»»«■»»»»»»«•»#»*«»»«■#«■«»■»#«»«■««•«•«•#«■««■**»»#«■«■»»«■# 
TST505 SCOPE 

{SET SCOPE LOOP ADDRESS 

{INITIALIZE ALL BITS 
iSS MOV iTACS,R0 {GET TACS FOR COMPARING 

{PUT STATUS IN Rl 
{COMPLEMENT Rl 
{GET RID OF UNDESIRED BITS 

{TRY TO CHANGE BITU 
{READ IT BACK 
{ONLY LOOK AT BITU 
{DID IT CHANGE? 
{BR IF NO 

{ERROR "» BITU CHANGED 
{»*»»®®»»«»®»**»»«»»*»'»»«»«»»«»««»»®^*»«-»»«»#*»»*«»»»»#*«-»»»#«*»«^ 
{THIS TEST WILL TRY TO CHANGE THE STATE OF BIT10, 
{THEN CHECK IT TO SEE IF IT CHANGED. 
{»*»*«•»»»»«•»■»»*»»#»■»■»»»«. ^^'f* ■»■»««»*»■»»««•»»»*«•»&«•»»«•*»»■» «.«■»■»*«■««•«•»« 
*TEST 51 TEST TACS BIT10 IS READ ONLY 

{»*-»*■»«#««•»»#*«•»»■»«■»»»»»»*■»««»•»«.»»*«•»»•»■»«•»»«•«■■»•«.#§#»«■ «.«.«.#»#«^#»»«# 
TST51! SCOPE 



MOV 


#l$r$LPADR 




RESET 






MOV 


@TACS,R0 




MOV 


R0,Ri 




COM 


Rl 




BIC 


#*C<BIT12>i 


R0 


BIC 


#-C<BIT12> 


Rl 


MOV 


RU&TACS 




MOV 


?TACS,R1 




BIC 


#*C<BIT12> 


Rl 


CMP 


R0,R1 




BEQ 


TST50 




ERROR 


I 





MOV 


#1S,SLPADR 




RESET 






MOV 


iTACS,R0 




MOV 


R0,Ri 




COM 


Rl 




BIC 


#'-C<BITU>, 


R0 


BIC 


#-C<BITll> 


Rl 


MOV 


R1,?ITACS 




MOV 


iTACS,Rl 




BIC 


#-C<BITU>, 


Rl 


CMP 


R0,R1 




BEQ 


TST51 




ERROR 


1 





TftU BASIC LOGIC TEST (PART 1) MAINDEC"! l^DETAA^C 
DZTAAC.NEW T51 TEST TACS BIT10 IS READ ONLY 
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1317 


005040 


012767 


005050 174040 


1318 


005046 


000005 




1319 


005050 


011400 




1320 


005052 


010001 




1321 


005054 


005101 




1322 


005056 


042700 


175777 


1323 


005062 


042701 


175777 


1324 


005066 


010114 




1325 


005070 


011401 




1326 


005072 


042701 


175777 


1327 


005076 


020001 




1328 


005100 


001401 




1329 


005102 


104001 




1330 








1331 








1332 








1333 








1334 








1335 








1336 


005104 


000004 




1337 


005106 


012767 


005116 173772 


1338 


005114 


000005 




1339 


005116 


011400 




1340 


005120 


010001 




1341 


005122 


005101 




1342 


005124 


042700 


176777 


1343 


005130 


042701 


176777 


1344 


005134 


010114 




1345 


005136 


011401 




1346 


005140 


042701 


176777 


1347 


005144 


020001 




1348 


005146 


001401 




1349 


005150 


104001 




1350 








1351 








1352 








1353 








1354 








1355 








1356 


005152 


000004 




1357 


005154 


012767 


005164 173724 


1358 


005162 


000005 




1359 


005164 


011400 




1360 


005166 


010001 




1361 


005170 


005101 




1362 


005172 


042700 


177577 


1363 


005176 


042701 


177577 


1364 


005202 


010114 




1365 


005204 


011401 




1366 


005206 


042701 


177577 


1367 


005212 


020001 




1368 


005214 


001401 




1369 


005216 


104001 




1370 








1371 








1372 









MOV 


#1$,SLPADR 




RESET 






MOV 


§TACS,R0 




MOV 


R0,R1 




COM 


Rl 




BIC 


»*C<BIT10> 


R0 


BIC 


#-C<BIT10> 


Rl 


MOV 


R1,§TACS 




MOV 


9TACS,R1 




BIC 


#"C<BIT10> 


Rl 


CMP 


R0#R1 




BEQ 


TST52 




ERROR 


1 





I J SET SCOPE LOOP ADDRESS 

jINITIALIZE ALL BITS 
jGET TACS FOR COMPARING 
jPUT STATUS IN Rl 
;COMPLEHENT Rl 
fGET RID OF UNDESIRED BITS 

•TRY TO CHANGE BIT10 
jREAD IT BACK 
jONLY LOOK AT BIT10 
jDID IT CHANGE? 
ffBR IF NO 

jERROR — BIT10 CHANGED 
; I a*'^*** *•»■»»««■»*«»■»•»«■» »«'»««««ft »«■»«■»«»»»#»»«»*«•*«■« »««»#»»«•»*»#«■■»»« 
ITHIS TEST WILL TRY TO CHANGE THE STATE OF BIT09» 
jTHEN CHECK IT TO SEE IF IT CHANGED, 

• J SS^f®*** »«#«#««■#»«««•«»*#■»*»«••»«•««•■»■& **##»«'«»«»«-«4J#» «■«##*»#« »««•»#«» 

|«TEST 52 TEST TACS BIT09 IS READ ONLY 

TST52! SCOPE 

#1S»$LPADR jjSET SCOPE LOOP ADDRESS 

^INITIALIZE ALL BITS 
ISS MOV 9TACS,R0 

R0»R1 

Rl 

#*C<BIT09>,R0 

#'*C<BIT09>,R1 

Rl,0TACS 

&TACS#Rl 

#'*C<BIT09>,R1 

R0,R1 

TST53 

1 
I .«.»#*■»«»»«■»»•»»**«■§»»««.*#»»«»»#*«»»■«■»«.»*«•«■»■»»*«•»»*»»»««■ 

JTHIS TEST WILL TRY TO CHANGE THE STATE OF BIT07. 
;THEN CHECK IT TO SEE IF IT CHANGED, 

|*TEST 53 TEST TACS BIT07 IS READ ONLY 

J }»»»*■»«»«■««■»««*»»««•«»»*«•«#«»■»«•«#*»»»#»#«■*«■*«««•***»«■»«•»#*«■#«•»»«•*» 

TST53: SCOPE 

JJSET SCOPE LOOP ADDRESS 

^INITIALIZE ALL BITS 
;GET TACS FOR COMPARING 
;PUT STATUS IN Rl 
ICOMPLEMENT Rl 
fGET RID OF UNDESIRED BITS 

;TRY TO CHANGE BIT07 
jREAD IT BACK 
fONLY LOOK AT BIT07 
;DID IT CHANGE? 
r;BR IF NO 

JERROR »- BIT07 CHANGED 
*'»«-#*»««*#»*# «■■»*##*«*»»•««•■»■»##«•«#«*#«■»■»■#*»«•*«■«»**»■» «••»»«•*«•*»■»■«■««■ 
JTHIS TEST WILL TRY TO CHANGE THE STATE OF BIT05, 
{THEN CHECK IT TO SEE IF IT CHANGED. 



MOV 

RESET 

MOV 

MOV 

COM 

BIC 

BIC 

MOV 

MOV 

BIC 

CMP 

BEQ 

ERROR 



GET TACS FOR COMPARING 
jPUT STATUS IN Rl 
^COMPLEMENT Rl 
jGET RID OF UNDESIRED BITS 

jTRY TO CHANGE BIT09 
IREAD IT BACK 
jONLY LOOK AT BIT09 
fDID IT CHANGE? 
f?BR IF NO 

lERROR ■»«• BIT09 CHANGED 



MOV 


»1$,SLPADR 




RESET 






MOV 


?TACS,R0 




MOV 


R0,R1 




COM 


Rl 




BIC 


#"C<BIT07>, 


R0 


BIC 


#"C<BIT07>, 


Rl 


MOV 


Ri*(aTACS 




MOV 


@TACS,R1 




BIC 


#"C<BIT07> 


Rl 


CMP 


R0,Ri 




BEQ 


TST54 




ERROR 


1 





TAll BASIC LOGIC TEST (PART 1) MAINDEC-1 1 «DZTAA-C 
DZTAAC.NEW T54 TEST TACS aiT05 IS READ ONLY 
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1373 








1374 








1375 








1376 


005220 


000004 




1377 


005222 


012767 


005232 


1378 


005230 


000005 




1379 


005232 


011400 




1380 


005234 


010001 




1381 


005236 


005101 




1382 


005240 


042700 


177737 


1383 


005244 


042701 


177737 


1384 


005250 


010114 




1385 


005252 


011401 




1386 


005254 


042701 


177737 


1387 


005260 


020001 




1388 


005262 


001401 




1389 


005264 


104001 




1390 









?®TEST 54 
TST54S SCOPE 



TEST TACS BIT05 IS READ ONLY 



;SET SCOPE LOOP ADDRESS 

J INITIALIZE ALL BITS 
jGET TACS FOR COMPARING 
;PUT STATUS IN Rl 
iCOMPLEMENT Rl 
jGET RID OF UNDESIRED BITS 

jTRY TO CHANGE BIT05 
JREAD IT BACK 
fONLY LOOK AT BIT05 
,*DID IT CHANGE? 
;BR IF NO 

fERROR -» BIT05 CHANGED 



MOV 


UUrSLPADR 




RESET 






MOV 


PTACS,R0 




MOV 


R0,R1 




COM 


Rl 




BIC 


#*C<BIT05> 


R0 


BIC 


#*C<BIT05> 


Rl 


MOV 


RlrtTACS 




MOV 


§TACS,R1 




BIC 

CMP 


»-C<BIT05> 
R0,R1 


Rl 


BEQ 


TST55 




ERROR 


1 





TAll BASIC LOGIC TEST (PART i) MAINDEC»U«D2TAA»C 
DETAACNEW T54 TEST TAGS B1T05 IS READ ONLY 
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1391 










1392 










1393 










1394 










1395 










1396 










1397 










1398 










1399 


005266 


000004 






1400 


005270 


0U767 


005300 


173610 


1401 


005276 


000005 






1402 


005300 


012714 


000004 




1403 


005304 


105077 


173700 




1404 


005310 


132714 


000004 




1405 


005314 


001001 






1406 


005316 


104001 






1407 










1408 










1409 










1410, 


005320 


000004 






1411 


005322 


012767 


005332 


173556 


1412 


005330 


000005 






1413 


005332 


012714 


000400 




1414 


005336 


105014 






1415 


005340 


132777 


000001 


173642 


1416 


005346 


001001 






1417 


005350 


104001 






1418 










1419 










1420 










1421 


005352 


000004 






1422 


005354 


012767 


005412 


173606 


1423 


005362 


005014 






1424 


005364 


032714 


000536 




1425 


005370 


001401 






1426 


005372 


104001 






1427 


005374 


112777 


000136 


173606 


1428 


005402 


032714 


000136 




1429 


005406 


001401 






1430 


005410 


104001 






1431 










1432 










1433 










1434 


005412 


000004 






1435 


005414 


012767 


005450 


173546 


1436 


005422 


005014 






1437 


005424 


032714 


000536 




1438 


005430 


001401 






1439 


005432 


104001 






1440 


005434 


112714 


000400 




1441 


005440 


032714 


000400 




1442 


005444 


001401 






1443 


005446 


104001 






1444 










1445 










1446 











MOV 


#l$f SLPADR 


RESET 




MOV 


^BIT02»fTACS 


CLRB 


fTACSH 


BITB 


»BIT02,^TACS 


BNE 


TST56 


ERROR 


1 



MOV 


#1S*SLPADR 


RESET 




MOV 


#BIT08#0TACS 


CLRB 


PTACS 


BITB 


#BlT00r0TACSH 


BNE 


fST57 


ERROR 


1 



J////////////////////////////////////////////////////////////////////// 
J////////////////////////////////////////////////////////////////////// 

jTHE FOLLOWING TESTS WILL CHECK FOP DUAL AND/OR FAULTY SELECTION 
|0F THE TAil ADDRESSES 

j*TEST 55 TEST HIGH BYTE SELECTION OF TACS 

TST55S SCOPE 

nSET SCOPE LOOP ADDRESS 
RESET 
i$5 MOV ^BIT02»fTACS jSET TACS BIT02 

jCLEAR THE HIGH BYTE 
;IS BIT02 STILL SET? 
IJBR IF YES 

jCLRB TO HIGH BYTE OF TACS CLEARED LOW BYTE 

|«TEST 56 TEST LOW BYTE SELECTION OF TACS 

TST56S SCOPE 

J SET SCOPE LOOP ADDRESS 

ISS MOV #BIT08»0TACS fSET 8IT08 OF TACS 

,'CLEAR THE LOW BYTE OF TACS 
J IS BIT08 OF TACS STILL SET? 
1 1 BR IF YES 

jCLRB TO LOS* BYTE OF TACS CLEARED THE HIGH BYTE 

;*TEST 57 TEST "OUT LOW" SIGNAL 

TST57S SCOPE 

#TST60,SESCAPE ? {ESCAPE TO TEST 60 ON ERROR 

&TACS yZERO THE TAll STATUS 

#UNITIINT.EN|ILBSiFUNCTION,eTACS 

1$ 

1 jTACS DIDN'T CLEAR PROPERLY 

#INT«ENULBSiFUNCTION,§TACSH jLOAD HIGH BYTE OF TACS 

#INT«ENJILBS1FUNCTI0N,§TACS jCHECK LOW BYTE 

TST60 ijBR IF LOW BYTE IS OK 

1 jLOW BYTE IMPROPERLY SELECTED 

«TEST 60 TEST "OUT HIGH" SIGNAL 

TST60t SCOPE 

#TST6USESCAPE jjESCAPE TO TEST 61 ON ERROR 
@TAC5 I ZERO THE TAll STATUS 

#UNIT{INT,ENULBSIFUNCTI0N,9TACS 
IS 

1 jTACS DIDN'T CLEAR PROPERLY 

ISS MOVB #BIT08,§TACS jLOAD LOW BYTE OF TACS 

;DID BIT08 GET SET? 
BR IF NO 

jHIGH BYTE IMPROPERLY SELECTED 



MOV 

CLR 

BIT 

BEG 

ERROR 

MOVB 

BIT 

BEO 

ERROR 



MOV 

CLR 

BIT 

BEQ 

ERROR 

MOVB 

BIT 

BEQ 

ERROR 



#BIT08,§TACS 
#BIT08»PTACS 
TST61 



»TEST 61 TEST "SELECT 00" ISN'T STUCK 



TAll BASIC LOGIC TEST (PART 1) MAINDEC"! 1 -DZTAA-C 
DZTAAC.NEW T6I TEST "SELECT 00" ISN'T STUCK 
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1447 


005450 


000004 




1448 


005452 


012767 


005506 


1449 


005460 


005014 




1450 


005462 


032714 


000536 


1451 


005466 


001401 




1452 


005470 


104001 




1453 


005472 


012715 


177776 


1454 


005476 


032714 


000536 


1455 


005502 


001401 




1456 


005504 


104001 




1457 








1458 








1459 








1460 








1461 








1462 








1463 








1464 








1465 


005506 


000004 




1466 


005510 


010314 




1467 


005512 


032714 


020000 


1468 


005516 


001001 




1469 


005520 


104001 




1470 


005522 


112714 


000000 


1471 


005526 


005714 




1472 


005530 


100401 




1473 


005532 


104001 




1474 


005534 


112714 


000002 


1475 


005540 


005714 




1476 


005542 


100401 




1477 


005544 


104001 




1478 


005546 


112714 


000004 


1479 


005552 


005714 




1480 


005554 


100401 




1481 


005556 


104001 




1482 


005560 


112714 


000006 


1483 


005564 


005714 




1484 


005566 


100401 




1485 


005570 


104001 




1486 


005572 


112714 


000010 


1487 


005576 


005714 




1488 


005600 


100401 




1489 


005602 


104001 




1490 


005604 


112714 


000012 


149! 


005610 


005714 




1492 


005612 


100401 




1493 


005614 


104001 




1494 


005616 


112714 


000014 


1495 


005622 


005714 




1496 


005624 


100401 




1497 


005626 


104001 




1498 


005630 


112714 


000016 


1499 


005634 


005714 




1500 


005636 


100001 




1501 


005640 


104001 





SCOPE 

MOV #TST62#SESCAPE jfESCAPE TO TEST 62 ON ERROR 

CLR &TACS yCLEAR TAU STATUS 

BIT SUNIT|INT,ENiILBS|FUNCTI0N,(3TACS 

BEQ IS 

ERROR 1 jTACS DIDN'T CLEAR PROPERLY 

MOV I'CU^TADB jLOAD THE DATA BUFFER 

BIT »UNITIINT.EN|ILBSIFUNCTION,§TACS 

BEQ TST62 |?BR IF TACS DIDN'T CHANGE 

ERROR 1 jTACS CHANGED WHEN LOADING TADB 



THE FOLLOWING TEST INSURES THAT THE STATE OF THE "ERROR" INDICATOR IS 
PROPER FOR ALL FUNCTIONS WHEN THE TAPE IS AT "CLEAR LEADER" 

*TEST 62 TEST "ERROR" FOR "CLEAR LEADER" 



TST62! 



SCOPE 




MOV 


DRIVE, iTACS 


BIT 


lLEADER,gTACS 


BNE 


U 


ERROR 


1 


MOVB 


SWFG,&TACS 


TST 


§TACS 


BMi 


2S 


ERROR 


1 


MOVB 


#WRITE,0TACS 


TST 


iTACS 


BMI 


3$ 


ERROR 


i 


MOVB 


#READ,PTACS 


TST 


PTACS 


BMI 


4$ 


ERROR 


1 


MOVB 


»BSFG,9TACS 


TST 


iTACS 


BMI 


5S 


ERROR 


1 


MOVB 


#BSBG,§TACS 


TST 


iTACS 


BMI 


6$ 


ERROR 


1 


MOVB 


#SFFG,§TACS 


TST 


gTACS 


BMI 


7S 


ERROR 


i 


MOVB 


#SFBG,§TACS 


TST 


PTACS 


BMI 


8$ 


ERROR 


1 


HOVB 


SREWIND,9TACS 


TST 


9TACS 


BPL 


TST63 


ERROR 


1 



SELECT DRIVE 

CHECK FOR CLEAR LEADER 

BR IF ON CLEAR LEADER 

NOT ON CLEAR LEADER 

CHECK "ERROR" WITH "MFG** 

SAMPLE THE "ERROR" BIT 

BR IF "ERROR" = 1 

"ERROR" NOT = 1 . 

CHECK "ERROR" WITH "WRITE" 

SAMPLE THE "ERROR" 

BR IF "ERROR" a 1 

"ERROR" NOT = 1 

CHECK "ERROR" WITH 

SAMPLE THE "ERROR" 

BR IF "ERROR" = 1 

"ERROR" NOT = 1 

CHECK "ERROR" WITH 

SAMPLE THE "ERROR" BIT 

BR IF "ERROR" s 1 

"ERROR" NOT s 1 

CHECK "ERROR" WITH 

SAMPLE THE "ERROR" 

BR IF "ERROR" = 1 

"ERROR" NOT s 1 

CHECK "ERROR" WITH 

SAMPLE THE "ERROR" 

BR IF "ERROR" = 1 

"ERROR" NOT s 1 

CHECK "ERROR" WITH 

SAMPLE THE "ERROR" BIT 

BR IF "ERRORS = 1 

"ERROR" NOT = 1 

CHECK "ERROR" WITH "REWIND" 

SAMPLE THE "ERROR" BIT 
"ERROR" = 
{"ERROR" NOT = 



BIT 



"READ" 
BIT 



"BSFG" 



"BSBG" 
BIT 



«SFFG" 
BIT 



»SFBG" 



TAll BASIC LOGIC TEST (PART 1) MAINDEC-1 l-DZTAA-C 
DZTAAC.NEW f62 TEST "ERBOP" FOR "CLEAR LEADER" 
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1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 



005642 
005644 
005652 
005660 
005662 
005670 
005672 
005674 
005700 
005704 
005710 
005712 
005714 
005716 
005720 
005722 
005726 
005730 
005732 
005736 
005740 



005742 
005744 
005752 
005760 
005762 
005770 
005772 
005774 
006000 
006004 
006010 
006012 
006014 
006016 
006020 
006022 
006026 
006030 
006032 
006036 
006040 



jTHE FOLLOWING 
;"REWIND" AND 

I»TEST 63 



14 
012767 
012767 005670 



000144 
000017 
000040 



012767 
010314 
005001 
012700 
112714 
032714 
001010 
005201 
001373 
005300 
001371 
032714 
001001 
104001 
032714 
001001 
104001 



000004 

012767 000005 

012767 005770 



012767 
010314 
005001 
012700 
112714 
032714 
001010 
005201 
001373 
005300 
001371 
032714 
001001 
104001 
032714 
001401 
104001 



000144 
000001 
000040 





TST63S 


SCOPE 




173314 




MOV 


#5,STIMES 


173226 




MOV 
RESET 


#3$fSLPADR 


173300 




MOV 


#TST64,$ESCAPE 




3$! 


MOV 


DRIVE, eTACS 






CLB 


Bl 






MOV 


#100, ,B0 






MOVB 


^REWINDIGOriTACS 




IS! 


BIT 


#READY,&TACS 






BNE 


2S 






INC 


Rl 






BNE 


1$ 






DEC 


R0 






BNE 


IS 






BIT 


#READY,iTACS 






BNE 


2$ 






ERROR 


1 




2$: 


BIT 


#LEADER,§TACS 






BNE 


TST64 






ERROR 


1 




• •*»»«■«■»»»«•»■»» 






;*TEST 


64 


TEST THAT "READY 




.,***»»»»»»»««»»««»*«««»*4**»«»»» 




TST64S 


SCOPE 




173214 




MOV 


#5,STIMES 


173126 




MOV 
RESET 


#3S,$LPADR 


173200 




MOV 


«TST65,$ESCAPE 




3$S 


MOV 


DRIVE, @TACS 






CLR 


Rl 






MOV 


»100,,R0 






MOVB 


#WFGJGO,@TACS 




ISS 


BIT 


SREADV,@TACS 






BNE 


2S 






INC 


Rl 






BNE 


IS 






DEC 


R0 






BNE 


IS 






BIT 


»READY,PTACS 






BNE 


2$ 






ERROR 


1 




2S: 


BIT 


|^LEADER,?TACS 






BEQ 


TST65 






ERROR 


1 



///////////////////////////////////////////////////////// 
///////////////////////////////////////////////////////// 

TESTS WILL CHECK BASIC OPERATIONS OF THE 
WRITE FILE GAP" FUNCTIONS, 
///////////////////////////////////////////////////////// 

TEST THAT «READY" SETS WHEN "REWIND" IS COMPLETED 



nDO 5 ITERATIONS 

JJSET SCOPE LOOP ADDRESS 

IIESCAPE TO TEST 64 ON ERROR 
fSELECT DRIVE 
; WASTE SOME TIME 

; START A REWIND 
I SAMPLE READY 
;GET OUT IF READY IS SET 



• }■»»«•«#«»»«•*»»»#■»»«•««■*»##«■«■»«•» 



^IS "READY" BIT SET? 

•BR IF YES 

•ERROR»""READY" BIT DIDN'T SET 

jCHECK FOR CLEAR LEADER 
;jBB IF CLEAR LEADER NE 

;NOT ON CLEAR LEADER 

yAFTER DOING A REWIND 
i^ ■»»»«■■»*■»»»»•»»»#»«■■»«»*# »***»»#»»*■» 
' SETS WHEN "WRITE FILE GAP" IS COMPLETED 

:jDO 5 ITERATIONS 

;fSET SCOPE LOOP ADDRESS 

ijESCAPE fO TEST 65 ON ERROR 
;SELECT DRIVE 
J WASTE SOME TIME 

; START A WFG 

; SAMPLE READY 

;GET OUT IF READY IS SET 



;IS "READY" BIT SET? 
?BR IF YES 

jERROR--"READY" BIT DIDN'T SET 
jCHECK FOR CLEAR LEADER 
;;BR IF CLEAR LEADER EO 
;0N CLEAR LEADER 
jAFTER DOING A WRITE FILE GAP 



TAll BASIC LOGIC TEST (PART 1) MAINDEC-1 l'»DZTAA»C 
DZTAAC.NEW 165 TEST "HEADY" CLEARS WHEN STARTING 
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1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 



006042 
006044 
006052 
006054 
006060 
006062 
006064 
006070 
006074 
006076 
006100 
006102 



006104 
006106 
006114 
006116 
006122 
006124 
006126 
006132 
006136 
006140 
006142 
006144 



006146 
006150 
006156 
006164 
006166 
006170 
006172 
006176 
006202 
006206 
006210 
006212 
006214 
006216 
006220 
006222 
006224 
006230 
006232 
006234 



012767 
000005 
012701 
010314 
104412 
112714 
032714 
001403 
006301 
001373 
10400! 



000005 173114 



000017 
000040 



|#TEST 65 TEST "READY" CLEARS WHEN STARTING A "REWIND" FUNCTION 

TST65! SCOPE 

#5,STIMES JJDO 5 ITERATIONS 



012767 000005 173052 



012701 
010314 
104412 
112714 
032714 
001403 
006301 
001373 
104001 



000004 
012767 
012767 
000005 
010314 
104412 
112714 
005067 
032714 
001404 
105227 



173010 
173004 



000017 
000010 
000040 



001372 
104001 
000005 
050314 
032714 
001401 
104001 
104412 



MOV 
RESET 
MOV 
MOV 



IS 



;SET TIMER 
;SELECT DRIVE 
jWAIT FOR "READY" 

jSTART A "REWIND" 
jCHECK "READY" BIT 
;BR IF "READY" = 
;IS TIME UP? 
;BR IF NO 
I "BEADY" FAILED TO CLEAR 

TEST "READY" CLEARS WHEN STARTING A "WRITE FILE GAP" 

TST665 SCOPE 

#5,STIMES JJDO 5 ITERATIONS 



MOVB 

BIT 

BEQ 

ASL 

BNE 

ERBOP 

»TEST 66 



#1,R1 

DRIVE, §TACS 
WAITREADY 

#REWIND!GO,iTACS 

»READY,§TACS 

TST66 ; 

Rl 

IS 

1 



MOV 
RESET 
MOV 
MOV 



S1,R1 
DRIVE, eTACS 



WAITREADY 



MOVB 
5S BIT 
BEG 
ASL 
BNE 
ERROR 



»WFG|GO,gTACS 

#READY,3TACS 

TST67 ;jBR 

Rl 

1$ 

1 



;SET TIMER 
fSELECT DRIVE 
jWAIT FOR "READY" 
jSTART A "WRITE FILE GAP" 
yCHECK "READY" BIT 
IF "READY" = 
;IS TIME UP? 
?BR IF NO 
y"READY" FAILED TO CLEAR 



«TEST 67 TEST THAT "RESET" CANNOT ABORT A "REWIND" 

TST67S SCOPE 

jjDO 1 ITERATION 
;;ESCAPE TO 5S ON ERROR 

jSELECT DRIVE 

;G0 WAIT FOB "READY" TO S 

jLOAD REWIND AND GO 

;WAIT FOR READY TO CLEAR 



"READY" FAILED TO CLEAR 

TRY TO STOP REWIND 

SELECT DRIVE 

IS READY SET? 

BR IF NO 

"READY" WAS SET 

WAIT ON READY TO SET 



MOV 


#1,STIMES 


MOV 


#5$,$ESCAPE 


RESET 




MOV 


DRIVE, iTACS 


WAITREADY 


MOVB 


#REWlNDiGO,PTACS 


CLR 


3S 


BIT 


#READY,PTACS 


BEQ 


4S 


INCB 



BNE 


(PC) + 


2S 


ERROR 


1 


RESET 




BIS 


DRIVE, gTACS 


BIT 


»READY,eTACS 


BEQ 


5$ 


ERROR 


1 


WAITREADY 



SSI 

jTHIS TEST WILL START A "WRITE FILE GAP" AND WAIT FOR "BEADY" TO CLEAR 
;AS SOON AS "READY" CLEARS A "RESET" IS PERFORMED (WHICH SHOULD 
jCLEAR THE FUNCTION AND SET READY) THEN "READY" IS EXAMINED 



TAU BASIC LOGIC TEST (PART 1) MAINDEC-1 l«OZTAA"C 

DETAAC.NEW T67 TEST THAT "RESET" CANNOT ABORT A "REWIND 
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1614 










1615 










1616 










1617 










1618 


006236 


000004 






1619 


006240 


012767 


000005 


172720 


1620 


006246 


012767 


006264 


172632 


1621 


006254 


012767 


006332 


172706 


1622 


006262 


000005 






1623 


006264 


010314 






1624 


006266 


104412 






1625 


006270 


112714 


000001 




1626 


006274 


005067 


000010 




1627 


006300 


032714 


000040 




1628 


006304 


001404 






1629 


006306 


105227 






1630 


006310 


000000 






1631 


006312 


001372 






1632 


006314 


104001 






1633 


006316 


000005 






1634 


006320 


010314 






1635 


006322 


032714 


000040 




1636 


006326 


001001 






1637 


006330 


104001 






1638 










1639 










1640 










164! 


006332 


000004 






1642 


006334 


012767 


000005 


172624 


1643 


006342 


012767 


006362 


172536 


1644 


006350 


012767 


006424 


172612 


1645 


006356 


000005 






1646 


006360 


010314 






1647 


006362 


U2714 


000017 




1648 


006366 


104412 






1649 


006370 


005714 






1650 


006372 


100001 






1651 


006374 


104001 






1652 


006376 


032714 


020000 




1653 


006402 


001001 






1654 


006404 


104001 






1655 


006406 


112714 


000001 




1656 


006412 


104412 






1657 


006414 


032714 


120000 




1658 










1659 


006420 


001401 






1660 


006422 


104001 






1661 










1662 










1663 










1664 










1665 










1666 










1667 










1668 


006424 


000004 






1669 


006426 


012767 


000001 


172532 



;T0 INSURE THAT IT IS SET 

J I «■»■»*»»»»«»«»***»»»»»■»■»*«»■»•«•»»■»«■■»«#»»»«•»•»*»»»■»»»»*»■»»»«.»»•»»#*»«* 

;»TEST 70 TEST "RESET" WILL ABORT A "WRITE FILE GAP" 

; }»»«*-»»»»»*«.»»»»»»*#»*»«^»*«.»«.*«*#»»*»««»«*«.**#*«»«.«.«^#».»»#»«.«#-»« 

TST70! SCOPE 

;;D0 5 ITERATIONS 

;;SET SCOPE LOOP ADDRESS 

JJESCAPE TO TEST 71 ON ERROR 

ISi MOV DRIVE, @TACS jSELECT DRIVE 

;WAIT ON READY 
jSTART A WRITE FILE GAP FUNCTION 

;WAIT FOR READY TO CLEAR 
jBR IF "READY" = 
jWASTE SOME TIME 



MOV 


»5,STIMES 


MOV 


#l$fSLPADR 


MOV 


#TST71,SESCAPE 


RESET 




MOV 


DRIVE, @TACS 


WAITREADY 


MOVB 


#WFGiGO,§TACS 


CLR 


3S 


BIT 


#READY,PTACS 


BEQ 


4S 


INCB 



BNE 


(PC)* 


2$ 


ERROR 


1 


RESET 




MOV 


DRIVE, @TACS 


BIT 


#READY,@TACS 


BNE 


TST71 


ERROR 


1 



y "READY" FAILED TO CLEAR 
jKILL WRITE FILE GAP 



R IF "RESET" SET "READY" 
;"READY" DIDN'T SET 

;»TEST 71 TEST "WFG" AND "REWIND" FOR NO ERRORS 



SCOPE 

MOV 

MOV 

MOV 

RESET 

MOV 

MOVB 



#5,$TIMES 

$1$,$LPADR 

#TST72,SESCAPE 



;;D0 5 ITERATIONS 

fjSET SCOPE LOOP ADDRESS 

llESCAPE TO TEST 72 ON ERROR 



DRIVE, &TACS 
#REWINDIGO,0TACS 



WAITREADY 

TST PTACS 

BPL 2S 

ERROR 1 

BIT #LEADER,PTACS 

BNE 3S 

ERROR 1 

MOVB #WFG1G0,PTACS 

WAITREADY 

BIT #ERR0PILEADER,@TACS 



BEQ 
ERROR 



.-»-4 



1 



GO TO "CLEAR LEADER" 

GO WAIT FOR "READY" TO SET 

IS "ERROR" SET? 

BR IF NO 

"ERROR" = 1 AFTER "REWIND" 

IS "CLEAR LEADER" = 1? 

BR IF YES 

NOT ON "CLEAR LEADER" AFTER "REWIND" 

GET OFF OF "CLEAR LEADER" 

GO WAIT FOR "READY" TO SET 

SHOULD BE OFF OF "CLEAR LEADER" 

WITH NO "ERROR" 

BR IF "WFG" MOVED TAPE WITH NO "ERROR" 

"WFG" FAILED 



;THIS ISN'T A REAL TEST BUT A SMALL ROUTINE TO DETERMINE THE MAX, 
jTIME FOR THE WAIT LOOPS (WAIT FOR "READY" AND "TRANSFER REQUEST") 

;«TEST 72 ROUTINE TO DETERMINE TIME OF WAIT LOOPS 

TST72S SCOPE 

MOV #1,$T1MES ;;D0 1 ITERATION 



TAU BASIC LOGIC TEST (PART 1) MAINDEC«-1 1»DETAA-C 



DZTAAC, 


NEW 


T72 


ROUTINE 


TO 


DETERMINE 


TIME OF 


WAIT LOOPS 


1670 


006434 


005737 


001100 






TST 


P»SPASS 


1671 


006440 


001021 








BNE 


TST73 1 


1672 


006442 


000005 








RESET 




1673 


006444 


010314 








MOV 


DRIVE, iTACS 


1674 


006446 


112714 


000017 






MOVB 


SREWIND1GO,0TACS 


1675 


006452 


104412 








WAITREADY 


1676 


006454 


112714 


000001 






MOVB 


SWFGiG0,9TACS 


1677 


006460 


104412 








WAITREADY 


1678 


006462 


163737 


012072 


012U6 


SUb 


g«HGHTIM,P«MAXCNT 


1679 


006470 


005237 


012116 






INC 


@#MAXCNT 


1680 


006474 


006137 


012116 






ROL 


?»MAXCNT 


1681 


006500 


006137 


012116 






ROL 


?#MAXCNT 
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JIS THIS THE FIRST PASS? 
IF NO 

;SELECT THE DRIVE 
J START A REWIND 
;WAIT FOR READY 
jWRITE A FILE GAP 
JWAIT ON READY 
;GET THE TIME IT TOOK 
jMAKE IT BIGGER 



fAil BASIC LOGIC TEST (PAST 1) MAINDEC-1 i «-DETAA«C 



DETAAC. 


NEW 


T72 


ROUTINE TO DET 


i682 








1683 








1684 








1685 








1686 








1687 








1688 








1689 


006504 


000004 




1690 


006506 


012767 


000005 172452 


1691 


006514 


012767 


006600 172446 


1692 


006522 


000005 




1693 


006524 


010314 




1694 


006526 


112714 


000017 


I69S 


006532 


104412 




1696 


006534 


032714 


020000 


1697 


006540 


001001 




1698 


006542 


104001 




!699 


006544 


005214 




1700 


006546 


005067 


000010 


1701 


006552 


032714 


000040 


1702 


006556 


001404 




1703 


006S60 


105227 




1704 


006562 


000000 




1705 


006564 


001372 




1706 


006566 


104001 




1707 


006570 


032714 


020000 


1708 


006574 


001401 




1709 


006576 


104001 




1710 


006600 


005067 


172364 


1711 


006604 


104412 




1712 








17iJ 








1714 








1715 


006606 


000004 




1716 


006610 


012767 


000005 172350 


1717 


006616 


012767 


006646 172262 


1718 


006624 


012767 


006722 172336 


1719 


006632 


000005 




1720 


006634 


010314 




1721 


006636 


104412 




1722 


006640 


112714 


000017 


1723 


006644 


104412 




1724 


006646 


012700 


000001 


1725 


006652 


010314 




1726 


006654 


112714 


000001 


1727 


006660 


032714 


000040 


1728 


006664 


001402 




1729 


006666 


006300 




1730 


006670 


100373 




1731 


006672 


000005 




1732 


006674 


010314 




1733 


006676 


U2714 


000001 


1734 


006702 


104412 




1735 


006704 


005714 




1736 


006706 


10040! 




1737 


006710 


104001 
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I ////////////////////////////////////////////////////////////////////// 

I////////////////////////////////////////////////////////////////////// 

iTHE FOLLOWING TESTS ARE USED TO CHECK VARIOUS OPERATIONS WHEN AT «CLEAR LEADER" 

I////////////////////////////////////////////////////////////////////// 

j«TEST 73 TEST THAT "CLEAR LEADER" GOES FALSE ON "REWIND^ 

TST738 SCOPE 

IJDO 5 ITERATIONS 
IfESCAPE TO 6S ON ERROR 

ISELECT DRIVE 

jGO TO CLEAR LEADER 

JGQ WAIT FOR "READY" TO SET 

JAT ''CLEAR LEADER"? 

fBP IF YES 

?ERROR"»NOT AT CLEAR LEADER 

ISTART ANOTHER REWIND 

JWAIT ON "READY" TO CLEAR 



J "READY" FAILED TO CLEAR 
jDlD "CLEAR LEADER" GO FALSE? 
|BR IF YES 
?CLEAR LEADER DIDN'T CLEAR 

6$: 

^AITREADY 

• |#»*##4*»«-«####«-«»«»«»»»«#««#«.»«-»#-»«-#«^«.«#«.»#*«*«#««.««.«.#«.*»###«.#«# 

y»TEST 74 TEST FOR «CLEAB LEADER ERROR" FOR "WRITE FILE GAP FUNCTION" 

fST74! SCOPE 
MOV 
MOV 
MOV 
RESET 

MOV DRIVE, §TACS 
WAITREADY 

MOVB SREWIND4-G0,PTACS 
WAITREADY 



MOV 


#5,$TIMES 


MOV 


#6$,SESCAPE 


RESET 




MOV 


DRIVE, eTACS 


MOVB 


#REWINDIG0, STAGS 


WAITREADY 


BIT 


#LEADER»fTACS 


BNE 


2S 


ERROR 


1 


INC 


iTACS 


CLR 


4$ 


BIT 


#READY,§TACS 


BEO 


5$ 


INCB 



BNE 


(PC)-fr 


3S 


ERROR 


1 


BIT 


#LEADER,§TACS 


BEQ 


6S 


ERROR 


1 


CLR 


SESCAPE 



#5,STIMES 
#IS,$LPADR 
8TST75, SESCAPE 



?;D0 5 ITERATIONS 

jfSET SCOPE LOOP ADDRESS 

??ESCAPE TO TEST 75 ON ERROR 

jSELECT DRIVE 

jMAKE SURE TAU IS READY 

;LOAD REWIND AND GO 

jGO WAIT FOR "READY" TO SET 



MOV 


#i,R0 


MOV 


DRIVE, §TACS 


MOVB 


#WFGJGO,PTACS 


BIT 


#READY,PTACS 


BEQ 


4S 


ASL 


R0 


BPL 


3S 


RESET 




MOV 


DRIVE, ilACS 


MOVB 


#WFGJGO,0TACS 


WAITREADY 


TST 


@TACS 


BMi 


2S 


ERROR 


1 



; START 
JWAIT 



WRITE FILE GAP FUNCTION 
READY TO CLEAR 



J SELECT DRIVE 

fSTART A WRITE FILE GAP FUNCTION 

;G0 rtAIT FOR "READY" TO SET 

jDID ERROR BIT SET? 

?BR IF YF.S 

;"ERROR" BIT (BIT15) FAILED TO SET 



TAll BASIC LOGIC TEST (PART I) MAINDEC-i 1 -DETAA-C 
DZTAACNEW T74 TEST FOR "CLEAR LEADER ERROR" FOR 



MACYll 27(732) il»JUN-7fe 
'WRITE FILE GAP FUNCTION" 
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1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 

1784 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 



006712 032714 020000 
006716 001001 
006720 104001 



2$ 



000004 
012767 



006722 

006724 

006732 

006734 012701 

006740 010314 

006742 104412 



BIT #LEADER,eTACS ;HOW ABOUT CLEAR LEADER BIT 

BNE TST75 .jBR IF SET 

^^M^ 1 ; "CLEAR LEADER" NOT SET 

j^^^j^^„ CLEARS WHEN STARTING A "WRITE" FUNCTION 



000005 172234 



»TEST 75 TEST 

TST75: SCOPE 

MOV #5,STIMES 

RESET 

MOV #1,R1 

MOV DRIVE, §TACS 



JfDO 5 ITERATIONS 



006744 
006750 
006754 
006756 
006760 
006762 



112714 
032714 
001403 
006301 
001373 
104001 



WAITREADY 



1$: 



MOVB 
BIT 

BEy 

ASL 

BNE 
ERROR 



JjBR IF 



006764 
006766 
006774 
006776 012701 



JSET TIMER 
jSELECT DRIVE 
;WAIT FOR "READY" 
?START A "WRITE" 
?CHECK "READY" BIT 
"READY" = 
jIS TIME UP? 
|BR IF NO 
■READY" FAILED TO CLEAR 



012767 000005 172172 



007002 
007004 
007006 
007012 
007016 
007020 
007022 
007024 



010314 
104412 
112714 
032714 
001403 
006301 
001373 
104001 



MOV 


S5,STIMES 


RESET 




MOV 


#1,R1 


MOV 


DRIVE, ®TACS 


WAITREADY 


MOVB 


#READJGO,PTACS 


BIT 


#READY,?TACS 


BEQ 


TST77 


ASL 


Rl 


BNE 


1$ 


ERROR 


1 



007026 000004 
007030 012767 
007036 000005 



007040 
007044 
007046 
007050 
007054 
007060 
007062 
007064 
007066 



070 
072 
100 
102 
106 



012701 
010314 
104412 
112714 
032714 
001403 
006301 
001373 
104001 



012767 000005 172066 



012701 
010314 



SWRlTE«GO,gTACS 

»READY,PTACS 

TST76 

Rl 

1$ 

1 

«TEST 76 TEST "READY" CLEARS WHEN STARTING A "READ" FUNCTION 
TST76J SCOPE 

;;D0 5 ITERATIONS 

SET TIMER 
SELECT DRIVE 
WAIT FOR "READY" 
START A "READ" 
CHECK "READY" BIT 
READY" = 
IS TIME UP? 
BR IF NO 
. "READY" FAILED TO CLEAR 

«TEST 77 TEST "READY" CLEARS WHEN STARTING A "BACK SPACE FILE GAP" FUNCTION 
TST77S SCOPE 

?D0 5 ITERATIONS 

?SET TIMER 
JSELECT DRIVE 
IWAIT FOR "READY" 
JSTART A "BACK SPACE FILE GAP" 
jCHECK "READY" BIT 
;BR IF "READY" = 
jIS TIME UP? 
;BR IF NO 
; "READY" FAILED TO CLEAR 

|*TEST 100 TEST "READY" CLEARS WHEN STARTING A "BACK SPACE BLOCK GAP" FUNCTION 

TST100i SCOPE 

MOV g5,$TIMES yjDO 5 ITERATIONS 

RESET 

MOV #1,P1 .SET TIMER 

DRIVE, 9TACS I SELECT DRIVE 



iSJ 



MOV 


#5,STIMES 


RESET 




MOV 


§1,R1 


MOV 


DRIVE, fTACS 


WAITREADY 


MOVB 


#BSFGIGO,&TACS 


BIT 


#READY,@TACS 


BEQ 


TSTS00 


ASL 


Rl 


BNE 


1$ 


ERROR 


1 



MOV 
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DET&ACNEW T100 TEST "READTf" CLEARS WHEN SfARflHG A "BACK SPACE BLOCK GAP" FUNCTION 



1794 


007U0 


104412 




1795 


007112 


112714 


000011 


1796 


007116 


032714 


000040 


1797 


007122 


001403 




1798 


007124 


006301 




1799 


007126 


001373 




1800 


007130 


104001 




1801 








1802 








1801 








1804 


007132 


000004 




1805 


007134 


012767 


000005 172024 


1806 


007142 


000005 




1807 


007144 


012701 


000001 


1808 


007150 


010314 




1809 


007152 


104412 




1810 


007154 


112714 


000013 


I8ii 


007160 


032714 


000040 


1812 


007164 


001403 




1813 


007166 


006301 




1814 


007170 


001373 




1815 


007172 


104001 




1816 








181? 








1818 








1819 


007174 


000004 




1820 


007176 


012767 


000005 171762 


1821 


007204 


000005 




1822 


007206 


01270! 


000001 


1823 


007212 


010314 




1824 


007214 


104412 




1825 


007216 


112714 


000015 


1826 


007222 


032714 


000040 


1827 


007226 


001403 




1828 


007230 


006301 




1829 


007232 


001373 




1830 


007234 


104001 




1831 








1832 








1833 








1834 


007236 


000004 




1835 


007240 


01276? 


000005 171720 


1836 


007246 


012767 


007276 171632 


1837 


007254 


012767 


007370 171706 


1838 


007262 


000005 




1839 


007264 


010314 




1840 


007266 


104412 




1841 


007270 


112714 


000017 


1842 


007274 


104412 




1843 


007276 


012700 


000001 


1844 


007302 


010314 




1845 


007304 


112714 


000003 


1846 


007310 


032714 


000040 


184? 


007 314 


001402 




1848 


007316 


006300 




1849 


007320 


100373 





WAITREADY 


MOVB 


#BSBG1G0,@TACS 


BIT 


#READY,PTACS 


BEO 


TSTl0i 


ASL 


Rl 


BNE 


is 


ERROR 


i 



JSAIT FOR "READY" 
J START A "BACK SPACE BLOCK GAP" 
ISl BIT #READY,PTACS |CHECK "REAOY« BIT 

JIBR IF "READY" s 
J IS TIME UP? 
fBR IF NO 
} "READY" FAILED TO CLEAR 

|*TEST 101 TEST ''READY" CLEARS WHEN STARTING A "SPACE FORWARD FILE GAP" FUNCTION 

TST101I SCOPE 

JIDO 5 ITERATIONS 

jSET TIMER 

{SELECT DRIVE 

J WAIT FOR "READY" 

jSTART A "SPACE FORWARD FILE GAP" 

jCHECK "READY" BIT 
fiBR IF "READY" s 

;IS TIME UP? 

jBR IF NO 

f "READY" FAILED TO CLEAR 
I ;««»####«#»##«»«# ##'«»#«#«#»##«'$ «#«$##«#«#««#»«•»«#«'«««««"»'«'«'»'»'»"!»### 

;*TEST 102 TEST "READY" CLEARS WHEN STARTING A "SPACE FORWARD BLOCK GAP" FUNCTION 
• ;»*»**#«««•»«•»«#*«•«■»»*#«••#»«■»#■»*»«*##»««■»*»#*»*#«■**##«■#■»##«###«■■»«■# 
TST102! SCOPE 



MOV 


#5,STIMES 


RESET 




MOV 


#lrRl 


MOV 


DR1VE?9TACS 


WAITREADY 


MOVB 


#SFFGIGO,PTACS 


BIT 


#READY#?TACS 


BEO 


TST102 


ASL 


Rl 


BNE 


1$ 


ERROR 


1 



MOV 


#5,STIMES 


fjDO 


5 


ITERATIONS 


RESET 










MOV 


#1,P1 






ISET TIMER 


MOV 


DRIVE, PTACS 






; SELECT DRIVE 


WAITREADY 






jWAIT FOR "READY" 


MOVB 


#SFBGlGO,eTACS 






jSTART A "SPACE FORWARD BLOCK GAP 


BIT 


#READY,PTACS 






jCHECK "READY" BIT 


BEG 


TST103 


; jBR 


IF 


"READY" = 


ASL 


Rl 






J IS TIME UP? 


BNE 


1$ 






JBR IF NO 


ERROR 


1 






; "READY" FAILED TO CLEAR 



TST103S 



j«TEST 103 TEST FOR "CLEAR LEADER ERROR" FOR "WRITE FUNCTION" 

• }»«*■»«###«»*■»■»*#«««•*««»#*««•#««•»««■«■«•»*»««•»■»»»«■■»«•■»*«•«•«■«»«■«•#■» «■■»•»•»«« 
SCOPE 

IjDO 5 ITERATIONS 
;SET SCOPE LOOP ADDRESS 



jSELtCT DRIVE 

jMAKE SURE TAU IS READY 

ILOAD REWIND AND GO 

IGO WAIT FOR "READY" TO SET 



MOV 


#5,STIMES 


MOV 


#1S,SLPADR 


MOV 


STST104,SESCAPE 


RESET 




MOV 


DRIVE, @TACS 


WAITREADX 


MOVB 


iPEWlND+GCiTACS 


WAITREADY 


MOV 


»1,R0 


MOV 


DRIVE, ?TACS 


MOVB 


#WRITEiGO,iTACS 


BIT 


#READY*@TACS 


BEQ 


4$ 


ASL 


R0 


BPL 


3S 



jSTART A WRITE FUNCTION 
J WAIT ON READY TO CLEAR 
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DETAACNEW T103 TEST FOR "CLEAR LEADER ERROR" FOR "WRITE FUNCTION" 



1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
18b4 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 



007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 
007 



322 
324 
326 
332 
336 
340 
342 
344 
346 
350 
352 
354 
356 
360 
364 
366 



007370 
007372 
007400 
007406 
007414 
007416 
007420 
007422 
007426 
007430 
007434 
007436 
007442 
007446 
007450 
007452 
007454 
007456 
007460 
007464 
007466 
007470 
007472 
007474 
007500 
007502 



007504 
007506 
007514 
007522 
007530 
007532 
007534 
007536 



000005 
010314 
112714 
012700 
105714 
100402 
005200 
001374 
105715 
104412 
005714 
100401 
104001 
032714 
001001 
104001 



000004 
012767 
012767 
012767 
000005 
010314 
104412 
112714 
104412 
012700 
010314 
H2714 
032714 
001402 
006300 
100373 
000005 
010314 
112714 
104412 
005714 
100401 
104001 
032714 

001001 

104001 



000003 



000005 
007430 
007504 



000005 
000040 



012767 
012767 
012767 
000005 
010314 
104412 
112714 



RESET 




MOV 


DRIVE, PTACS 


MOVB 


#WPITE|GO,@TACS 


MOV 


#l,R0 


TSTB 


gTACS 


BMI 


6$ 


INC 


R0 


BNE 


5S 


TSTB 


PTADB 


WAITREADY 


TST 


iTACS 


BMI 


2S 


ERROR 


1 


BIT 


#LEADER,eTACS 


BNE 


TST104 


ERROR 


1 



jBR 



;SELECT DRIVE 
JSTART A WRITE FUNCTION 
jWAIT A WHILE FOR XFER REQ« 
jXFER REQ s 1? 
* BR IF YES 

•WAITED LONG ENOUGH? 
jBR IF NO 

fCLEAR TRANSFER REQ, 
jGO WAIT FOR "READY" TO SET 
;DID ERROR BIT SET? 
;BR IF YES 

;"ERROR" BIT (BIT15) FAILED TO SET 
fHOW ABOUT CLEAR LEADER BIT 
IF SET 

; "CLEAR LEADER" NOT SET 



171566 
171500 
171554 



;»TEST 104 TEST FOR "CLEAR LEADER ERROR" FOR "READ FUNCTION" 
• ;»»*#»»**«»«-«»«**-JJ #•»«■•»«■«»»«■»««■■» «■■»«»»»■»■ *»»»#«■»*•»»*•»««■»»«««« ***»««■ 

TST104S SCOPE 

IJDO 5 ITERATIONS 

;;SET SCOPE LOOP ADDRESS 

jjESCAPE TO TEST 105 ON ERROR 



#5,STIMES 

#1$,$LPADR 

#TST105,$ESCAPE 



MOV 

MOV 

MOV 

RESET . 

MOV DRIVE, &TACS 

WAITREADY 

MOVB #REWIND*G0,9TACS 

WAITREADY 

MOV #1,R0 

DRIVE, gTACS 

«READIGO,PTACS 

#READY,PTACS 

4$ 

R0 

3S 



4$s 



MOV 

MOVB 

BIT 

BEQ 

ASL 

BPL 

RESET 

MOV 

MOVB 



jSELECT DRIVE 

jMAKE SURE TAll IS READY 

jLOAD REWIND AND GO 

;G0 WAIT FOR "READY" TO SET 



,• START A READ FUNCTION 
jWAlT ON READY TO CLEAR 



2S 



000005 
007544 
007620 



171452 
171364 

171440 



JSELECT DRIVE 
jSTART A READ FUNCTION 
fGO WAIT FOR "READY" TO SET 
;DID ERROR BIT SET? 
;BR IF YES 

;"ERROR" BIT (BIT15) FAILED TO SET 
;HOW ABOUT CLEAR LEADER BIT 
J BR IF SET 

; "CLEAR LEADER" NOT SET 

TEST FOR "CLEAR LEADER ERROR" FOR "BACK SPACE FILE GAP FUNCTION" 
J J *«»»«**»»»»*« «•»»»»»»»■»•«•»■»#»»*»«■»»«■«•»■»»»*»»**■»«■»■»»»»»**«•»«■*»*«•■»» 
TST1055 SCOPE 

jjDO 5 ITERATIONS 
jjSET SCOPE LOOP ADDRESS 
jESCAPE TO TEST 106 ON ERROR 



TST 

BMI 

ERROR 

BIT 

BNE 

ERROR 

*TEST 105 



DRIVE, iTACS 
#READ|GO,§TACS 
WAITREADY 

?TACS 

2$ 

1 

#LEADER,?TACS 

TST105 

1 



i5,STIMES 

#1S,SLPADR 

#TST106,SESCAPE 



MOV 

MOV 

MOV 

RESET 

MOV DRIVE, @TACS 

WAITREADY 

MOVB «REWIND+GO,@TACS 



jSELECT DRIVE 

J MAKE SURE TAU IS READY 

jLOAD REWIND AND GO 
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1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 



007542 
007544 
007550 
007552 
007556 
007562 
007564 
007566 
007570 
007572 
007574 
007600 
007602 
007604 
007606 
007610 
007614 
007616 



007620 
007622 
007630 
007636 
007644 
007646 
007650 
007652 
007656 
007660 
007664 
007666 
007672 
007676 
007700 
007702 
007704 
007706 
007710 
007714 
007716 
007720 
007722 
007724 
007730 
007732 



007734 
007736 
007744 
007752 
007760 
007762 



104412 
012700 
010314 
112714 
032714 
001402 
006300 
100373 



WAITREADY 



010314 
112714 
104412 
005714 
100401 
104001 
032714 
001001 
104001 



MOV 

MOV 

MOVB 

BIT 

BEQ 

ASL 

BPL 

RESET 

MOV 

MOVB 

WAITRE 

TST 

BMI 

ERROR 

BIT 

BNE 

ERROR 



#1#R0 

DRIVE, iTACS 

#BSFG«GO,gTACS 

»READy,?TACS 

4S 

R0 

3$ 

DRIVE, §TACS 
#BSFGiGO,gTACS 
t>Y 
gTACS 
2S 
1 

#LEADER,@TACS 
TST106 
1 



f*TEST 3 06 TEST FOR "CLEAR 
TST106: SCOPE 



;G0 WAIT FOR "READY" TO SET 



ySTART A BACK SPACE FILE GAP FUNCTION 
yWAlT ON READY TO CLEAR 



J SELECT DRIVE 

jSTART A BACK SPACE FILE GAP FUNCTION 

jGO WAIT FOR "READY" TO SET 

;DID ERROR BIT SET? 

jBR IF YES 

;"EBROR" BIT (BITIS) FAILED TO SET 

;HOW ABOUT CLEAR LEADER BIT 
• " BR IF SET 

y "CLEAR LEADER" NOT SET 
*»*»**«■»*«■»•»***•»**««■»**•»«*»•»«■»«»« 
LEADER ERROR" FOR "BACK SPACE BLOCK GAP FUNCTION" 



012767 000005 
012767 007660 
012767 007734 



000011 
000040 



171336 
171250 
171324 



#5,STIMES 

#1$,$LPADR 

#TST107,SESCAPE 



010314 
104412 
112714 
104412 
012700 
010314 
112714 
032714 
001402 
006300 
100373 
000005 
010314 
112714 
104412 
005714 
100401 
104001 
032714 
001001 
104001 



000004 
012767 
012767 
012767 

000005 
010314 



MOV 

MOV 

MOV 

RESET 

MOV DRIVE, 0TACS 

WAITREADY 

MOVB ?fREWIND-fGO, iTACS 

WAITREADY 



MOV 


f?l,R0 


MOV 


DRIVE, iTACS 


MOVB 


#BSBG|G0,9TACS 


BIT 


#READY,(aTACS 


BEQ 


4S 


ASL 


R0 


BPL 


3S 


RESET 




MOV 


DRIVE, eTACS 


MOVB 


»BSBGJGO,?TACS 


WAITREADY 


TST 


iTACS 


BMI 


2$ 


ERROR 


1 


BIT 


PLEADER, PTACS 


BNE 


TST107 



2$! 



ERROR 1 
TEST 107 TEST FOR "CLEAR 
TST107! SCOPE 



000005 
007774 
010050 



171222 
171134 
171210 



MOV 

MOV 

MOV 

RESET 

MOV 



#5,STIMES 

#1S,$LPADR 

JfTST110,$ESCAPF 

DRIVE, gTACS 



?;D0 5 ITERATIONS 

;;SET SCOPE LOOP ADDRESS 

;;ESCAPE fO TEST 107 ON ERROR 

jSELECT DRIVE 

jMAKE SURE TAU IS READY 

•LOAD REWIND AND GO 

jGO WAIT FOR "READY" TO SET 



;START A BACK SPACE BLOCK GAP FUNCTION 
JWAIT ON READY TO CLEAR 



jSELECT DRIVE 

; START A BACK SPACE BLOCK GAP FUNCTION 

?G0 WAIT FOR "READY" TO SET 

;DID ERROR BIT SET? 

;BR IF YES 

;"ERROR" BIT (BIT15) FAILED TO SET 

jHOW ABOUT CLEAR LEADER BIT 
;;BR IF SET 

; "CLEAR LEADER" NOT SET 
«»«■*«.■»»*»«»*«•»•»*****«■»«•*■»■»*«•«•»«•■»*» 
LEADER ERROR" FOR "SPACE FWD FILE GAP FUNCTION" 

;;D0 5 ITERATIONS 

jjSET SCOPE LOOP ADDRESS 

; {ESCAPE TO TEST 110 ON ERROR 



jSELECT DRIVE 



TAU BASIC LOGIC TEST (PART 1) MAlNDEC-1 1 -DZTAA«C 
DETAAC.NEW T107 TEST FOR "CLEAR LEADER ERROR" FOR 
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1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 



007764 
007766 
007772 
007774 
010000 
010002 
010006 
010012 
010014 
010016 
010020 
010022 
010024 
010030 
010032 
010034 
010036 
010040 
010044 
010046 



104412 
112714 
104412 
012700 
010314 
112714 
032714 
001402 
006300 
J00373 
000005 
010314 
112714 
104412 
005714 
100401 
104001 
032714 
001001 
104001 



000013 
000040 



010050 
010052 
010060 
010066 
010074 
010076 
010100 
010102 
010106 
010110 
010114 
010116 
010122 
010126 
010130 
010132 
010134 
010136 
010140 
010144 
010146 
010150 
010152 
010154 
010160 
010162 



010164 
010166 
010174 
010202 



000005 
010110 
010164 



012767 

012767 

012767 

000005 

010314 

104412 

112714 000017 

104412 

012700 

010314 

112714 000015 

032714 

001402 

006300 

100373 

000005 

010314 

112714 

104412 

005714 

100401 

104001 

032714 

001001 

104001 



012767 000005 
012767 010206 



WAITREADY 

MOVB #REWIND+GO,gTACS 

WAITREADY 



;MAKE SURE TAU IS READY 

•LOAD REWIND AND GO 

•GO WAIT FOR "READY" TO SET 



;START A SPACE FWD FILE GAP FUNCTION 
JWAIT ON READY TO CLEAR 



jSELECT DRIVE 

; START A SPACE FWD FILE GAP FUNCTION 
;G0 WAIT FOR "READY" TO SET 
;DID ERROR BIT SET? 
jBR IF YES 

;"ERROR" BIT (BITIS) FAILED TO SET 
;HOW ABOUT CLEAR LEADER BIT 
iR IF SET 

I "CLEAR LEADER" NOT SET 



MOV 


«1,R0 


MOV 


DRIVE, PTACS 


MOVB 


»SFFGIGO,PTACS 


BIT 


#READY,?TACS 


BEQ 


4S 


ASL 


R0 


BPL 


3S 


RESET 




MOV 


DRIVE, PTACS 


MOVB 


»SFFG|GO,PTACS 


WAITREADY 


TST 


gTACS 


BMI 


2S 


ERROR 


1 


BIT 


PLEADER, PTACS 


BNE 


TSTU0 


ERROR 


1 



171106 
171020 
171074 



TEST 110 

TSTU0! SCOPE 
MOV 
MOV 
MOV 
RESET 
MOV 



TEST FOR "CLEAR LEADER ERROR" FOR "SPACE FWD BLOCK GAP FUNCTION" 



#5,$TIMES 
#1$,SLPADR 



;;D0 5 ITERATIONS 
fSET SCOPE LOOP ADDRESS 



#TST1U,SESCAPE jjESCAPE TO TEST 111 ON ERROR 



DRIVE, @TACS 
WAITREADY 

MOVB SREWIND+GO,PTACS 
WAITREADY 



4$! 



MOV 

MOV 

MOVB 

BIT 

BEQ 

ASL 

BPL 

RESET 

MOV 

MOVB 



#1,R0 

DRIVE, §TACS 

#SFBG!GO,§TACS 

SREADY,PTACS 

4$ 

R0 

3$ 



SELECT DRIVE 

MAKE SURE TAU IS READY 

LOAD REWIND AND GO 

GO WAIT FOR "READY" TO SET 



jSTART A SPACE FWD BLOCK GAP FUNCTION 
;WAIT ON READY TO CLEAR 



jSELECT DRIVE 

fSTART A SPACE FWD BLOCK GAP FUNCTION 
jGO WAIT FOR "READY" TO SET 
;DID ERROR BIT SET? 
;BR IF YES 

;"ERROR" BIT (BIT15) FAILED TO SET 
;HOW ABOUT CLEAR LEADER BIT 
BR IF SET 

; "CLEAR LEADER" NOf SET 
•»»««■■»**««■««»«• «^ ■»#*»■»■»«»•*■»«**********«■***•**** ****** 
TEST "GO" BIT IS WRITE ONLY 
• }«««»»*»«»»«»«*«•»*»•»*»»■»■»■*■»««■•»«•■»»«•■»•*«•««*■»«•*«■**»*»«■«************* 
TSTUlS SCOPE 



TST 

BMI 

ERROR 

BIT 

BNE 

ERROR 

I •«»«&«««»«»#»« 

f^TEST 111 



2$ 



DRIVE, §TACS 
»SFBGJGO,MACS 
WAITREADY 

@TACS 

2S 

1 

»LEADER,gTACS 

TSTIU 

1 



170772 
170704 



MOV 
MOV 
RESET 



»5,STIMES 
#1$,SLPADR 



;;D0 5 ITERATIONS 

•;SET SCOPE LOOP ADDRESS 



TAll BASIC LOGIC TEST (PART 1) MAINDEC-l l-DZTAA-C 
DZTAACNEW Till TEST "GO" BIT IS WRITE ONLY 



MOV 
BIS 
BIT 
BEQ 
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2018 


010204 


010314 




2019 


010206 


052714 


000001 


2020 


010212 


032714 


000001 


2021 


010216 


001401 




2022 


010220 


104001 




2023 


010222 


104412 





DRIVE, fTACS 

#l,@TACS 

#lf 0TACS 

2$ 

1 



JLOAD THE DRIVE 
fSET "GO" BIT 
;TRY TO READ IT 
;N0 ERROR IF "GO" 
;G0 BIT WASN'T 
yWAIT ON "READY" 



TAU BASIC LOGIC TEST (PART i) MAINDEC-1 1 -DETAA»C 
DETAAC.NEW #»»«-»*»#»«TPANSFER REQUEST*****-****® 
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2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 



010224 
010226 
010234 
010242 
010250 
010252 
010254 
010256 
010262 
010264 
010270 
010272 
010274 
010276 
010302 
010306 
010310 
010312 
010314 
010316 
010320 
010322 
010326 
010330 
010332 
010334 
010336 
010340 
010342 
010344 
010346 
010350 
010352 
010356 
010360 
010362 
010364 
010366 
010370 
010372 



000004 
012767 
012767 
012767 

000005 
010314 
104412 
112714 
104412 
112714 
104412 



000012 
010276 
010374 



010314 
112714 
012700 
006300 
001376 
105714 
100001 
104001 
005214 
012700 
006300 
001376 
105714 
100401 
104001 
105015 
105714 
100001 
104001 
104413 
052714 
105714 
100001 
104001 
104412 
005714 
100001 
104001 



000002 



170732 
170644 
170720 



////////////////////////////////////////////////////////////////////// 
////////////////////////////////////////////////////////////////////// 
THE FOLLOWING TESTS CHECKS FOR PROPER OPERATION OF "TRANSFER REQUEST" 
AND "ILBS" FOB BOTH WRITING AND READING 
////////////////////////////////////////////////////////////////////// 

• ****«««»»»»■»«•*»»»■»*■»■» ■»**#*»■*»»*»»■»•»«■»«««•»»»»*■»■***«■»■»■*■»■ «•*»«■*•»»*« 
»TEST 112 TEST TRANSFER REQUEST & ILBS FOR "WRITE" 

■ST112! SCOPE 

#10,,STIMES ;jDO 10. ITERATIONS 

#8$»$LPADR ;;SET SCOPE LOOP ADDRESS 

#TST113,SESCAPE yjESCAPE TO TEST 113 ON ERROR 



MOV 

MOV 

MOV 

RESET 

MOV DRIVE, PTACS 

WAITREADY 

MOVB SREWIND+GO,§TACS 

WAITREADY 

MOVB SWFG+GOriTACS 

WAITREADY 

RESET 

DRIVE, iTACS 

#WRITE,iTACS 

«1,R0 

P0 

IS 

PTACS 

2$ 

1 

0TACS 

#1,R0 

R0 

3$ 

§TACS 

4$ 

1 

PTADB 

gTACS 

5S 



MOV 

MOVB 

MOV 

ASL 

BNE 

TSTB 

BPL 

ERROR 

INC 

MOV 

ASL 

BNE 

TSTB 

BMI 

ERROR 

CLRB 

TSTB 

BPL 

ERROR 1 

WAITXFER 

BIS #ILBS,PTACS 

TSTB 9TACS 

BPL 6$ 

ERROR 1 

WAITREADY 

TST PTACS 

BPL TST113 

ERROR 1 



jSELECT DRIVE 

; INSURE DRIVE IS READY 

;G0 TO BOT 

;G0 WAIT FOR "READY" TO SET 

;GET OFF OF CLEAR LEADER 

jGO WAIT FOR "READY" TO SET 



;LOAD "WRITE" FUNCTION 



j;BR 



jKILL A LITTLE TIME 



; INSURE XFER REQ=0 
jXFER REQ. SET BEFORE 
,'SET "GO" 

jKILL A LITTLE TIME 



jCHECK THAT XFER EQ=1 
J XFER REQ FAILED TO SET 
•KNOCK DOWN XFER REQ, 

{CHECK THAT "XFER REQ" IS CLEAR 
yXFER REQ FAILED TO CLEAR 
;G0 WAIT ON "TRANSFER REQUEST" TO SET 
jSET ILBS--WRITE CRC 
;D1D "XFER REQ" CLEAR? 
;BR IF YES 

;"ILBS" DIDN'T CLEAR "XFER REQ" 
;G0 WAIT FOR "READY" TO SET 
;ANY ERROR? 
IF NO 

;AN ERROR OCCURRED 



010374 000004 

010376 012767 000012 

010404 012767 010472 

010412 012767 010534 



;»TEST 113 TEST "TRANSFER REQ" AND "ILBS" FOR "READ" 

TSTU35 SCOPE 

170562 MOV #10,,$TIMES ;?D0 10, ITERATIONS 

170474 MOV S4S,SLPADR jjSET SCOPE LOOP ADDRESS 

170550 MOV #TST114,SESCAPE jjESCAPE TO TEST 114 ON ERROR 



XAU BASIC LOGIC TEST (PART 1) MAINDEC«ll-DETAA"C 
DZTAACsNEW TiU TEST "TRANSFER REQ« AND "ILBS* FOR 



'READ** 
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2080 


010420 


00000S 




308i 


010422 


010314 




2082 


010424 


104412 




2083 


010426 


052714 


000017 


2084 


010432 


104412 




208S 


010434 


U2714 


000001 


2086 


010440 


104412 




2087 


010442 


112714 


000003 


2088 


010446 


104413 




2089 


0104S0 


11271S 


000377 


2090 


0104S4 


104413 




2091 


010456 


112715 


000377 


2092 


010462 


104413 




2093 


010464 


052714 


000020 


2094 


010470 


104412 




209S 


010472 


112714 


000017 


2096 


010476 


104412 




2097 


010500 


112714 


000005 


2098 


010504 


104413 




2099 


010506 


005715 




2100 


010510 


105714 




2101 


010512 


100001 




2102 


010514 


104001 




2103 


010516 


104413 




2104 


010520 


052714 


000020 


2105 


010524 


105714 




2106 


010526 


100001 




2107 


010530 


104001 




2108 


010532 


104412 




2109 








2110 








2111 








2112 


010534 


000004 




2113 


010536 


012767 


010546 


2114 


010544 


000005 




2115 


010546 


011500 




2116 


010550 


001401 




2U7 


010552 


ld4006 




2118 








2119 








2120 








2121 


010554 


000004 




2122 


010556 


012715 


177777 


2123 


010562 


011500 




2124 


010564 


001401 




2125 


010566 


104006 





RESET 

MOV DRIVE, fTACS 

WAITREAD¥ 

BIS »REWIND-{>GO,@TACS 

WAITREADX 

MOVB SWFGIGOrPTACS 

WAITREAD^ 

MOVB SWR1TE1G0,^TACS 

felAITXFER 

MOVB S377,0TADB 

S^AITXFER 

MOVB I377#9TADB 

WAITXFER 

BIS #ILBS,@TACS 

WAITREADY 
4S: MOVB #REWINDiGO,iTACS 

WAITREADY 

MOVB #READiCO,«|TACS 

WAITXFER 

TST iTADB 

TSTB PTACS 

BPL 2$ 

ERROR 1 
2S! WAITXFER 

BIS #TLBS,PTACS 

TSTB 9TACS 

BPL 3$ 

ERROR 1 
3S! WAITREADY 
J I »■»*»*«•»•»•»«■«*«■»«■*«•»«•»»■»«■*»*»■»•»■»*»«#*■»■»*»#«■»■«■**«••» »»*•»«#»»■»#»»»*»» 
|*TEST 114 TEST THAT TADB (READ BUFFER) INITIALIZES TO 0'S 
J •»#»»»»«#« •»»#«'&#»#««»»»»»«»'»»*»#»*»#'»«-««-»«*»»##*#*»»«*#«»#«'»#**» 
TSTU4I SCOPE 
170342 MOV #1S,$LPADR jiSET SCOPE LOOP ADDRESS 

RESET 
ISS MOV gTADB,R0 jPUT TADB IN R0 

BEG TST115 jjCHECK FOR ALL ZEROS 

ERROR 6 J TADB NOT ALL ZEROS 

J»TEST 115 TEST TADB (WRITE BUFFER) FOR WRITE ONL^f 

J }»»««•#«■»»»»»*»»»»«•#•»•«•*«■#»«■■»»«•»»««■*■»•»* »'»»«»'»»*»«'«»»«»*«»«»*»'»»#»# 

TSTliSs SCOPE 

MOV ^"l^PTADB 

MOV iiTADB,R0 

BEQ TSTlt6 

ERROR 6 



J SELECT DRIVE 
;CHECK READY 

jGO WAIT FOR «READY" TO SET 

J GET OFF OF "CLEAR LEADER" 

jGO WAIT ON "READY" 

ISTART A WRITE 

S WRITE ON TAPE 

fWRlTE ON TAPE 



J START A READ 

jGO WAIT ON "TRANSFER REQUEST" TO SET 

jCLEAR XFER REQ 

jDID XFER REQ CLEAR? 

?BR IF YES 

;XFER REQ FAILED TO CLEAR 

;G0 WAIT ON "TRANSFER REQUEST" TO SET 

J START ILBS"«CLEARS XFER REQ 

;DID XFER REQ CLEAR? 

;BR IF YES 

;XFER REQ FAILED TO CLEAR 

;G0 WAIT FOR "READY" TO SET 



fLOAD TADB WITH I'S 
IPUT TADB IN R0 
jjBP IF IT DIDN'T CHANGE 
jERROR 



TAll BASIC LOGIC TEST (PART 1) MAINDEC-1 1«DZTAA»C 
DZTAACNEW T116 FLOAT A •« 3 « THROUGH TADB 
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2126 








2127 








2128 








2129 


010570 


000004 




2130 


010572 


012767 


000012 170366 


2131 


010600 


012767 


010634 170300 


2132 


010606 


012767 


010666 170354 


2133 


010614 


000005 




2134 


010616 


010314 




2135 


010620 


112714 


000017 


2136 


010624 


104412 




2137 


010626 


112714 


000001 


2138 


010632 


104412 




2139 


010634 


01:^700 


000001 


2140 


010640 


111714 


000003 


2141 


0106 44 


104413 




2142 


010646 


110015 




2143 


010650 


104413 




2144 


010652 


011501 




2145 


010654 


120001 




2146 


010656 


001401 




2147 


010660 


104007 




2148 


010662 


106300 




2149 


010664 


103370 




2150 


010666 


152714 


000020 


2151 


010672 


104412 





J«TEST 116 FLOAT A "1" THROUGH TADB 

5 }«»»#»#■»»#«■»»#«•»»##*»»#«■#«»##«#««#»»««•«•»»»■»*«•«»*«#»##»»»«•««■««•#»« 

TST116S SCOPE 

#10,,$TIMES nDO 10, ITERATIONS 

IfUrSLPADR nSET SCOPE LOOP ADDRESS 

#4$,$ESCAPE ^ESCAPE TO 4$ ON ERROR 



MOV 

MOV 

MOV 

RESET 

MOV 

MOVB 



DRIVE, PTACS 
#REWINDiG0,9TACS 

WAITREADY 

MOVB #WFGJGO,fTACS 

WAITREADY 

MOV #1,R0 

MOVB SWRITE1G0,PTACS 

WAITXFER 

MOVB R0,PTADB 

WAITXFER 

MOV iTADB,Rl 

CMPB R0,Ri 

BEQ 3S 

ERROR 7 

ASLB R0 

BCC 2S 

BISB #IL8S,@TACS 

WAITREADY 



;POSITION THE TAPE 

;G0 WAIT FOR "READY" TO SET 

;GET OFF OF "CLEAR LEADER" 

jGO WAIT FOR "READY" TO SET 

^INITIALIZE THE PATTERN 

;START A WRITE FUNCTION 

;G0 WAIT ON''TRANSFER REQUEST" 

;LOAD TADB WRITE BUFFER 

jWAIT ON "TRANSFER REQUEST" 

?READ THE DATA BUFFER 

;CHECK THE DATA 

;BR IF DATA IS GOOD 

;ERROR-— TADB NOT EQUAL R0 

J NEXT PATTERN 

JBR IF MORE TO DO 

jWRITE CRC 

yGO WAIT FOR "READY" TO SET 



TAU BASIC LOGIC TEST (PftRT I) MAINDEC-1 1-DZTAA-C 
DZTAAC.NEW 111? FLOAT A "0" THROUGH TADB 
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2152 








2153 








2154 








2155 


010674 


000004 




2156 


010676 


012767 


000012 170262 


2157 


010704 


012767 


010740 170174 


2158 


0)0712 


012767 


010772 170250 


2159 


010720 


000005 




21fc0 


010722 


010314 




2161 


010724 


112714 


000017 


2162 


010730 


104412 




2163 


010732 


112714 


000001 


2164 


010736 


104412 




2165 


010740 


012700 


177776 


2166 


010744 


112714 


000003 


2167 


010750 


104413 




2168 


010752 


110015 




2169 


010754 


104413 




2170 


010756 


011501 




2171 


010760 


120001 




2172 


010762 


001401 




2173 


010764 


104007 




2174 


010766 


106300 




2175 


010770 


103770 




2176 


010772 


152714 


000020 


2177 


010776 


104412 





;*TEST 117 FLOAT A "0" THROUGH TADB 

TST1175 SCOPE 

#10,,STIMES ;?D0 10. ITERATIONS 
»1S,SLPADR JJSET SCOPE LOOP ADDRESS 
l4Sr$ESCAP£ ;;ESCAPE TO 4S ON ERROR 



MOV 

MOV 

MOV 

RESET 

MOV 

MOVE 



DRIVE, 9TACS 
#REWINDiGO,@TACS 

WAITREADY 

HOVB #HFGIGOrgTACS 

WAITREADY 

MOV #-2rR0 

MOVB «WRITE}GO,§TACS 

WAITXFER 

MOVB P0,@TADB 

WAITXFER 



MOV 


?TADB, 


Rl 


CMPB 


R0,R1 




BEQ 


3S 




ERROR 


7 




ASLB 


R0 




BCS 


2$ 




BISB 


»ILBS 


iTACS 


WAITREADY 





J POSITION THE TAPE 

;G0 WAIT FOR "READY" TO SET 

J GET OFF OF "CLEAR LEADER" 

;G0 WAIT FOR "READY" TO SET 

; INITIALIZE THE PATTERN 

ySTART A WRITE FUNCTION 

fGO WAIT ON "TRANSFER REQUEST" TO SET 

jLOAD INTO WRITE BUFFER 

;WAIT ON "TRANSFER REQUEST" 

jPEAD THE DATA BUFFER 

fCHECK THE DATA 

}BR IF DATA IS GOOD 

J ERROR— TADB NOT EQUAL R0 

jNEXT PATTERN 

;BR IF MORE TO DO 

{WRITE CRC 

jGO WAIT FOR "READY" TO SET 



TAll BASIC LOGIC TEST (PART 1) MA INDEC-i I -DZTAA-'-C 
DZTAACeNEW Ti20 COUNT PATTERN TO TADB 
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2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 



011000 

011002 

011010 
011016 
011024 
011026 
011030 
011034 
011036 
011042 
011044 
011046 
0U052 
011054 
011056 
011060 
011062 
011064 
011066 
011070 
011072 
011074 
011100 



000004 
012767 
012767 
012767 
000005 
010314 
112714 
104412 
112714 
104412 
005000 
112714 
104413 
110015 
104413 
011501 
120001 
001401 
104005 
105200 
001370 
152714 
104412 



000012 
011044 
011074 



170156 
170070 
170144 



«TEST 120 COUNT PATTERN TO TADB 

J »»»«■##»»«»»«■*«**#«»«»*»*»«*'»»»»«»'»»****'»*»*«**»****** '*********^ 
TST120! SCOPE 

S10,#STIMES JjDO 10, ITERATIONS 
SUfSLPADR JfSET SCOPE LOOP ADDRESS 
#4S,SESCAPE I {ESCAPE TO 4$ ON ERROR 



MOV 

MOV 

MOV 

RESET 

MOV 

MOVB 



DRIVE, @TACS 
iREWINDiGO, iTACS 

WAITREADY 

MOVB SWFG'GO, iTACS 

WAITREADY 

CLR B0 

HOVB #WPITESGOf yTACS 

WAITXFER 

MOVB R0,gTADB 

WAITXFER 



MOV 


0TADB, 


Rl 


CMPB 


P0,R1 




BEQ 


3$ 




ERROR 


5 




INCB 


P0 




BNE 


2$ 




BISB 


ilLBS 


PTACS 


WAITREADY 





{POSITION THE TAPE 

{GO WAIT FOP "READY" TO SET 

{GET OFF OF "CLEAR LEADER" 

{GO WAIT FOR "READY" TO SET 

{INITIALIZE THE COUNT PATTERN 

{START A WRITE FUNCTION 

{GO WAIT ON "TRANSFER REQUEST" TO SET 

{LOAD TADB WRITE BUFFER 

{WAIT ON "TRANSFER REQUEST" 

{READ THE DATA BUFFER 

{CHECK THE DATA 

{BR IF DATA IS GOOD 

{ERROR— -TADB NOT EQUAL R0 

{UPDATE THE PATTERN 

{LOOP IF NON-ZERO 

•WRITE CPC 

'{GO WAIT FOR "READY" TO SEf 



Tftll BASIC LOGIC TEST (PART 1) MAINDEC"! l-'DZTAA-C 
DETAAC.NEW T121 END OF TEST CODE 
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2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 



011102 
011104 
011112 
011114 
011116 
011122 



010314 
112714 
104412 



011124 
011124 
011126 
011132 
011136 
011142 
011150 
011152 
011154 
011156 
011160 
011162 
011164 
011170 
011174 
011176 
011200 
011202 
011204 
011206 
011210 
011210 
011212 
011214 
011217 
0U224 



j*TEST 121 END OF TEST CODE 

J J ft*****^*******^^****-* »■»**»«•»•»«««■**«■»#*#* «■•»«•*»»«*«■«•»»»«»«**»*■»«■*» 
TST121: SCOPE 

012767 000001 170054 , MOV #1,$TIMES ?jDO 1 ITERATION 

RESET 

MOV DRIVEr?TACS jSELECT DRIVE 

000017 MOVB #REWINDJGO,0TACS 

WAITREADY 
.SBTTL END OF PASS ROUTINE 

^INCREMENT THE PASS NUMBER (SPASS) 
»TYPE -END PASS" 
»IF THERES A MONITOR GO TO IT 
»IF THERE ISN'T JUMP TO START 

»IF IT IS DESIRED TO HAVE A BELL INDICATE THE "END OF PASS" LOCATION 
;*SENDMG CAN BE CHANGED TO 7, 

SEOP! 

SCOPE 

CLR 

CLR 

INC 

BIC 

DEC 
SEOPCT! .WORD 

BGT 

MOV 
$ENDCTs ,WORD 

SEOPCT 

Tl^PE 
SGET42! MOV 

BEO 

RESET 
SENDAD; JSR 



005067 
005067 
005267 
042767 
005327 
000001 
003015 
012737 



011152 
104401 
013700 
001405 



167750 
170030 
167736 

100000 



011217 

i2 



STSTNM 

STIMES 

SPASS 

8100000, SPASS 

tPOf 

1 

SDOAGN 

( PC ) -f , § ( PC ) 4 

1 

,$ENDMG 
@«42,R0 
SDOAGN 



;;EERO THE TEST NUMBER 
;;EERO THE NUMBER OF ITERATIONS 
;;INCREMENT THE PASS NUMBER 
jjDON'T ALLOW A NEG, NUMBER 
; JLOOP? 

; JYES 

JJRESTORE COUNTER 



004710 
000240 
000240 
000240 

000137 

002234 

377 

015 

050040 



377 

042412 
051501 



042116 
000123 



SPTNADs 
SENULLs 
SENDMGS 



NOP 
NOP 
NOP 

JMP 
.WORD 
.BKTE 
,ASC1E 



# ( PC ) 4 

START 

"1,-1,0 

<15><12>/END PASS/ 



jTYPE "END PASS" 
jGET MONITOR ADDRESS 
jBRANCH IF NO MONITOR 
jCLEAR THE WORLD 
;G0 TO MONITOR 
jSAVE ROOM 
,-FOR 
?ACTn 

jRETURN 



;NULL CHARACTER STRING 



TAU BASIC LOGIC TEST (PART 1) MAINDEC-1 1 "DETAA-C 
DETAAC,NEW SCOPE HANDLER ROUTINE 
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2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 



011232 
011232 
011234 
011242 

011244 

011246 
011252 
011260 
011264 
011270 
011272 
011274 
011300 
011302 
011302 
011310 
011312 
011320 
011322 
011326 
011330 
011336 
011340 
011346 
011350 
011356 
011360 
011364 
011370 
011372 
011400 
011402 
011406 
011410 
011414 
011422 
011424 
011432 
011440 
011444 



104406 
032777 
001111 

000416 

013746 
012737 
005737 
012637 
000463 
022626 
012637 
000423 

032777 
001404 
127767 
001462 
105767 
001421 
126767 
101015 
032777 
001404 
016767 
000443 
105067 
005067 
000415 
032777 
001011 
005767 
001406 
005267 
026767 
002021 
012767 
016767 
105267 
011667 



000004 
011272 
177060 
>4 



000400 

167622 

167555 

167561 

001000 

167534 

167517 
167576 



167630 
167562 

167545 
167572 
167530 



.SBTTL SCOPE HANDLER ROUTINE 

• •»«•»«»*»»«•»»»«*«•»*»»«»»#■»■»■»■»«*#« »*»*»-»#»«*»«-#«*#*««»«-« *•»*»*»*■»*« 

j«THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

;»AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7 !0> ) 

;»AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15 !08> 

•»THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

;«SW14=:1 LOOP ON TEST 

;*SWllsi INHIBIT ITERATIONS 

;»SW09sl LOOP ON ERROR 

;»SW08=1 LOOP ON TEST IN SWR<7j0> 

;»CALL 

!» SCOPE ;;SCOPE=IOT 



167676 is: 



CKSWR 

BIT 

BNE 



#BIT14,@SWR 
SOVER 



J»#»I#START OF CODE FOR THE XOR TESTER»#### 



SXTSTR: BR 

MOV 
MOV 
TST 
MOV 
BR 
5S: CMP 
MOV 
BR 



6S 

@#ERRVEC,-(SP} 

#5$,P#ERRVEC 

g#177060 

(SP)+r0#ERRVEC 

SSVLAD 

(SP)+,(SP)+ 

(SP)+,§#ERRVEC 

7S 



6SJ|»SS8#END OF CODE FOR THE XOR 



004000 167540 3$: 
167472 



167470 
167546 



000044 
167436 
167436 



167452 
167526 



ISl 

SSVLADi 



BIT 

BEQ 

CMPB 

BEO 

TSTB 

BEQ 

CMPB 

BHI 

BIT 

BEQ 

MOV 

BR 

CLRB 

CLR 

BR 

BIT 

BNE 

TST 

BEQ 

INC 

CMP 

BGE 

MOV 

MOV 

INCB 

MOV 



#BIT08,faSWR 

2$ 

0SWR, STSTNM 

SOVER 

SERFLG 

3S 

SERMAX, SERFLG 

3$ 

#BIT09,PSWB 

4$ 

SLPERR,$LPADR 

SOVER 

SERFLG 

STIMES 

IS 

#BITU,iSWR 

IS 

SPASS 

IS 

SICNT 

STIMES, SICNT 

SOVER 

«1, SICNT 

SMXCNT, STIMES 

STSTNM 

(SP),SLPADR 



jTEST FOR CHANGE IN SOFT-SWR 
;LOOP ON PRESENT TEST? 
;YES IF SW14=1 



IF PUNNING ON THE "XOR" TESTER CHANGE 
;THIS INSTRUCTION TO A "NOP" (NOP=240) 
;SAVE THE CONTENTS OF THE ERROR VECTOR 
;SET FOR TIMEOUT 
yTIME OUT ON XOR? 
JPESTORE THE ERROR VECTOR 
fGO TO THE NEXT TEST 
ICLEAR THE STACK AFTER A TIME OUT 
jRESTORE THE ERROR VECTOR 
;LOOP ON THE PRESENT TEST 
TESTER###»» 
jLOOP ON SPEC. TEST? 
JBR IF NO 

fON THE RIGHT TEST? SWR<7|0> 
?BR IF YES 

jHAS AN ERROR OCCURRED? 
;BR IF NO 

;MAX. ERRORS FOR THIS TEST OCCURRED? 
;BR IF NO 
jLOOP ON ERROR? 
;BR IF NO 
;SET LOOP ADDRESS TO LAST SCOPE 

I ZERO THE ERROR FLAG 

fCLEAR THE NUMBER OF ITERATIONS TO MAKE 

J ESCAPE TO THE NEXT TEST 

jINHIBIT ITERATIONS? 

;BR IF YES 

;IF FIRST PASS OF PROGRAM 

; INHIBIT ITERATIONS 

; INCREMENT ITERATION COUNT 

jCHECK THE NUMBER OF ITERATIONS MADE 

,«BR IF MORE ITERATION REQUIRED 

jREINITIALIEE THE ITERATION COUNTER 

JSET NUMBER OF ITERATIONS TO DO 

jCOUNT TEST NUMBERS 

jSAVE SCOPE LOOP ADDRESS 



TAU BASIC LOGIC TEST (PART 1) MAINDEC-U-DZTAA-C 
DZTAACNEW SCOPE HANDLER ROUTINE 



2305 011450 0U667 

2306 011454 005067 

2307 0U460 1127b7 

2308 011466 016777 

2309 011474 016716 



2310 011500 000002 

2311 011502 003720 



167434 






MOV 


(SP),$LPERR 


167510 






CLR 


SESCAPE 


000001 


167427 




MOVB 


§1,SERMAX 


167410 


167446 


SOVERI 


MOV 


STSTNM, ©DISPLAY 


167406 




SMXCNT; 


MOV 
RTI 

2000, 


SLPADR,(SP) 
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fSAVE ERROR LOOP ADDRESS 

jCLEAR THE ESCAPE FROM ERROR ADDRESS 

;ONLY ALLOW ONE(l) ERROR ON NEXT TEST 

JDISPLAY TEST NUMBER 

J FUDGE RETURN ADDRESS 

jflXES PS 

?MAX. NUMBER OF ITERATIONS 



TAIl BASIC LOGIC TEST (PART 1) MAINDEC-I 1 -DZTAA^-C 
DZTAACNEW ERROR HANDLER ROUTINE 
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2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2 3 30 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 
2360 
23bl 
2362 
2363 



011504 
011504 
011506 
011512 
011516 
011522 
011526 
011532 
011534 
011542 
011550 
011552 
011556 
011562 
011566 
011574 
011602 
011610 
011612 
01161b 
011622 
0U622 
0U626 
011630 
011632 
0U634 
011642 
011644 
011650 
011654 
011656 
011662 
011662 
011670 
011672 
011674 
0U674 



104406 
011437 
011537 
010037 
010137 
105267 
001775 
016777 
032777 
001402 
104401 
005267 
011667 
162767 
117767 
032777 
001004 
004767 
104401 

005777 
100002 

000000 

104406 
032777 
001402 
016716 
005767 
001402 
016716 

022737 



001162 
001164 
001124 
001126 
167351 

167342 

002000 

001172 
167330 
167330 
000002 
167316 
020000 



001177 
167312 



167306 
011200 



167400 
167370 



167322 
167312 

167330 



.SBTTL EPROR HANDLER ROUTINE 

;«THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 

;»SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 

;«AND GO TO TYPERR ON ERROR 

;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

;«SW15=1 HALT ON ERROR 

;»SW13=:l INHIBIT ERROR TYPEOUTS 

;*SW10=1 BELL ON ERROR 

;»SW09=1 LOOP ON ERROR 

;»CALL 

;« ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 



SERRORs 



20$: 
2S: 



001000 167276 3S: 



167240 
167314 



CKSWR 

MOV 

MOV 

MOV 

MOV 

INCB 

BEQ 

MOV 

BIT 

BEO 

TYPE 

INC 

MOV 

SUB 

MOVB 

BIT 

BNE 

JSR 

TYPE 

TST 

BPL 

HALT 

CKSWR 

BIT 

BEQ 

MOV 

TST 

BEQ 

MOV 

CMP 
BNE 
HALT 



PTACS#§#$REG0 

gTADB,§#SREGl 

R0,e»SGDDAT 

R1,^»SBDDAT 

SERFLG 

7$ 

STSTNM^PDISPLAY 

#BITi0,§SWR 

IS 

,SBELL 

SERTTL 

(SP),SERHPC 

«2,SERRPC 

PSERRPCSITEMB 

#BITl3r@SWR 

20S 

PC f TYPERR 

,$CRLF 

iSWR 

3$ 



»BIT09,gSWR 

4$ 

$LPERR, (SP) 

SESCAPE 

5$ 

SESCAPE, (SP) 

SSENDAD,§#42 



J TEST FOR CHANGE IN SOFT"SWR 
;SAVE THE STATUS REG. 
;SAVE THE DATA BUFFER 
;R0 WILL CONTAIN THE GOOD DATA 
;R1 WILL CONTAIN THE BAD DATA 

fSET THE ERROR FLAG 

;DON'T LET THE FLAG GO TO ZERO 

{DISPLAY TEST NUMBER AND ERROR FLAG 

jBELL ON ERROR? 

fNO " SKIP 

jRING BELL 

fCOUNT THE NUMBER OF ERRORS 

jGET ADDRESS OF ERROR INSTRUCTION 

jSTRIP AND SAVE THE ERROR ITEM CODE 

jSKIP TYPEOUT IF SET 

fSKIP TYPEOUTS 

J GO TO USER ERROR ROUTINE 



jHALT ON ERROR 

ySKIp IF CONTINUE 

jHALT ON ERRORi 

•TEST FOR CHANGE IN SOFT-SWR 

;LOOP ON ERROR SWITCH SET? 

;BR IF NO 

jFUDGE RETURN FOR LOOPING 

.-CHECK FOR AN ESCAPE ADDRESS 

;BR IF NONE 

; FUDGE RETURN ADDRESS FOR ESCAPE 



??ACT-11 AUTO-ACCEPT? 
fjBRANCH IF NO 
; ; YES 



TAll BASIC LOGIC TEST (PART I) MAINDEC-1 1-DZTAA-C 
DZTAACNEW ERROR TYPEOUT ROUTINE 
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2364 








23&5 








2366 








2367 


011676 


104401 


001177 


2368 


011702 


010046 




2369 


011704 


113700 


001114 


2370 


011710 


005300 




2371 


011712 


006300 




2372 


011714 


006 300 




2373 


011716 


006 300 




2374 


011720 


062700 


001236 


2375 


011724 


012067 


000002 


2376 


011730 


104401 




2377 


011732 


000000 




2379 


011734 


104401 


001177 


2379 


011740 


012067 


000004 


2380 


011744 


001404 




2381 


011746 


104401 




2382 


011750 


000000 




2383 


011752 


104401 


001177 


2384 


011756 


012000 




2385 


011760 


001004 




2386 


011762 


012600 




2387 


0U764 


104401 


001177 


2388 


011770 


000207 




2389 


011772 






2390 


011772 


013046 




239! 








2392 


011774 


104402 




2393 


0U776 


005710 




2394 


012000 


001770 




2395 


012002 


104401 


012010 


2396 


012006 


000771 




2397 


012010 


020040 


000 


2398 




012014 





yTHIS ROUTINE WILL TYPEOUT THE ERROR MESSAGES 

yTYPE A CARRIAGE RETURN & LINE FEED 

fSAVE R0 

jPICKUP THE ITEM INDEX 

; ADJUST THE INDEX 

;S0 IT WILL WORK FOR 

fTHE ERROR TABLE 

J FORM THE TABLE POINTER 

; PICKUP "ERROR MESSAGE" POINTER 

;TYPE "ERROR MESSAGE" 

; "ERROR MESSAGE POINTER" GOES HERE 

; PICKUP "DATA HEADER" POINTER 

;IF "0" DON'T TYPE 

•TYPE "DATA HEADER 

J "DATA HEADER" POINTER GOES HERE 

jPICKUP "DATA POINTER" 

J IF THERE IS DATA TO TYPE GO DO IT 

; RESTORE R0 

jTYPE A CARRAGE RETURN6HNE FEED 

J RETURN 

?|SAVE 0(R0)* FOB TYPEOUT 

?|TYPE DATA 

;',GQ TYPE"»OCTAL ASCIKALL DIGITS) 

{TERMINATOR? 

;BR IF YES 

ITYPE 2 SPACES 

{LOOP 

{ASCII STRING OF 2 SPACES 



TYPERR: 


TYPE 


,SCRLF 




MOV 


R0,-(SP) 




MOVB 


@#SITEMB,R0 




DEC 


R0 




ASL 


R0 




ASL 


R0 




ASL 


R0 




ADD 


»SERRTBfR0 




MOV 


(B0)+rlS 




TYPE 




1$! 









TYPE 


,SCRLF 




MOV 


(R0)+»2S 




BEQ 


3$ 




TYPE 




2s: 









TYPE 


,SCRLF 


3$: 


MOV 


(R0)4-,R0 




BNE 


5$ 


4SS 


MOV 


(SP)*,R0 




TYPE 


,SCRLF 




RTS 


PC 


SSI 








MOV 


@(R0)+,"(SP) 




TYPOC 






TST 


(R0) 




BEQ 


4$ 




TYPE 


r6S 




BR 


5S 


ess 


.ASCIE 

,EVEN 


/ / 



TAll BASIC LOGIC TEST (PART 1) MAINDEC^l 1 «DZTAA«C 



DZTAAC,NEW 



ROUTINE TO WAIT ON THE READY BIT TO SET 
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2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2 409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 



{ROUTINE TO WAIT OW THE READY BIT 



s****®****************®**** 



012014 
012014 
012020 
012026 
012032 
012040 
012044 
012050 
012052 
012054 
012056 
012060 
012062 
012064 
012066 
012070 
012072 
012074 
012076 
012100 
012104 
012110 
012114 
012116 



012120 
012120 
012124 
012132 
012136 
012144 
012150 
012152 
012154 
012160 
012162 
012164 
012166 
012170 
012172 
012174 
012176 
012200 
012202 
012204 
012210 
012214 
012220 



005067 
016767 
012637 
162737 
0126J7 
032714 
001013 
105714 
100002 
104004 
000407 
005227 



001366 
005327 
000000 
003363 
104002 
013746 
013746 
062716 
000002 



005227 



001366 
005327 



003363 
104003 
013746 
013746 
062716 
000002 



000044 
000072 
001202 
000002 
001204 
000040 



005067 
013767 
012637 
162737 
012637 
105714 
100414 
032714 
001402 



001204 
001202 
000002 



000044 
012116 
001202 
000002 
001204 



001204 
001202 
000002 



WAIT, ON, READY! 
CLR 
MOV 
MOV 
SUB 
MOV 

WAITI.* BIT 
BNE 
TSTB 
BPL 
ERROR 



WA1T4! 
WA1T2! 



BR 
INC 



BNE 
DEC 



HGHTIM; 



BGT 

ERROR 

MOV 

HOV 

ADD 

RTI 



WAIT2 

MAXCNT»HGHT1M 

(SP)+rP#SAVPC 

»2,9#SAVPC 

(SP)+,e#SAVPS 

#READY,PTACS 

WAIT3 

&TACS 

WAIT4 

4 

WAIT3 

(PC) + 

WAITI 
(PC) + 

WAITI 

2 

0#SAVPS,-(SP) 

§#SAVPC,»(SP) 

#2,(SP) 



MAXCNTi 



{ROUTINE TO WAIT ON TRANSFER REQUEST 



wait»for,xfer.req: 



000044 
001202 





CLR 


2S 




MOV 


§#MAXCNTr3S 




MOV 


(SP)+,@#SAVPC 




SUB 


«2,P»SAVPC 




HOV 


(SP)*,§»SAVPS 


IS! 


TSTB 


©TACS 




BMI 


4$ 




BIT 


SREADY»§TACS 




BEQ 


5S 




ERROR 


4 




BR 


48 


5$S 


INC 


(PC) + 


2SI 









BNE 


IS 




DEC 


(PC) + 


3SS 









BGT 


IS 




ERROR 


3 


4$l 


MOV 


i#SAVPS,«'(SP) 




MOV 


9»SAVPC.«"(SP) 




ADD 


#2,(SP) 




RTI 





{SETUP MAX, TIME TO WAIT ON "READY" 

{GET THE PC OF THE WAITREADY INSTRUCTION 

{SAVE THE PS 

{HEADY=1? 

{GO ON IF YES 

{CHECK TRANSFER REQUEST 

{"TRANSFER REQUEST" SET WHILE WAITING ON "READY" 

{COUNT FAST COUNTER 

{GO CHECK "READY" AGAIN 
{COUNT LOOP COUNTER 

{GO LOOP AGAIN 

{"READY" FAILED TO SET 

{GET THE STATUS BACK 

{GET THE PC 



«»»«■»«#*»» «-»»«*«*«»»*»»* 



{SETUP WASTE TIME LOOP 

{GET THE PC OF THE WAITXFER INSTRUCTION 

{SAVE THE PS 

{CHECK XFER REQ 

{EXIT IF SET 

{LOOK AT READY 

{BR IF "READY" ISN'T SET 

{"READY" SET WHILE WAITING FOR "XFER REQ" 



{COUNT 

{BR IF MORE TO DO 



{"TRANSFER REQUEST" FAILED TO SET 
{GET THE STATUS BACK 
{GET THE PC 



TAIl BASIC LOGIC TEST (PART 1) MAINDEC»1 1 "DETAA-C 
DETAAC.NEW ROUTINE TO WAIT ON TRANSFER REQUEST 



MAC¥U 27(732) U«JUN"76 15815 PAGE S7 



2453 








2454 








2455 








2456 








2457 








2458 








2459 








24b0 








2461 


012222 


104401 


015570 


2462 


012226 


005067 


166772 


2463 


012232 


104410 




2464 


012234 


012600 




2465 


012236 


105710 




2466 


012240 


001425 




2467 


012242 


012701 


00S224 


24t>8 


012246 


122710 


000101 


2469 


012252 


001002 




247^ 


012254 


112021 




2471 


012256 


000411 




2472 


012260 


122710 


000102 


2473 


012264 


001002 




2474 


012266 


112021 




2475 


012270 


000404 




2476 


012272 


122710 


000054 


2477 


012276 


001006 




2478 


012300 


105720 




2479 


012 302 


105710 




2480 


012304 


001406 




2461 


012306 


022701 


001226 


2482 


012312 


101355 




2483 


012314 


104401 


001176 


2484 


012320 


000740 




2485 


012322 


005767 


166676 


2486 


012326 


001772 




2487 


012330 


000207 




24»8 









,SBTTL ROUTINE TO ASK THE OPERATOR WHAT DRIVE(S) TO TEST 



jCALL 



. 


asR 


PC,f#ASKDRV 


1 


RETURN 




ASKDRV! 


TYPE 


,MSGDRV 




CLR 


DRVKEY 




RDLIN 






MOV 


CSP)+,R0 




TSTB 


9R0 




BEQ 


NOTLGL 




HOV 


*DRVKEY,R1 


LOOPS 


CMPB 


#'A,PR0 




BNE 


NOTA 




HOVB 


(R0)4-,CRU-5- 




BR 


NEXT 


NOTAS 


CMPB 


#'B,aR0 




BNE 


NOTB 




MOVE 


(R0)+,£R1)+ 




BR 


NEXT 


NOTB! 


CMPB 


S54,9R0 




BNE 


NOTLGL 




TSTB 


(R0)* 


NEXTS 


TSTB 


&R0 




BEU 


EXIT 




CMP 


ifDRVKEY-i'2»Rl 




BHI 


LOOP 


NOTLGLS 


TYPE 


,SOUES 




BR 


ASKDRV 


EXITS 


TST 


DRVKEY 




BEQ 


NOTLGL 




RTS 


PC 



;NOTE! R0 AND Rl ARE DESTROYED 

J<CRLF>''DRIVE(S)| » 

fGO GET A DRIVE 

•SETUP TO CHECK FOR VALID DRIVECS) 

I WAS A DRIVE SELECTED? 

jBR IF NO 

;WAS DRIVE "A" SELECTED? 

jBR IF NO 

fSET KEY FOR DRIVE »A« 

jWAS DRIVE "B« SELECTED? 

jBR IF NO 

jSET KEY FOR DRIVE «B" 

J WAS A COMMA TYPED? 

jBR IF NO 

•DUMP THE COMMA 

I TERMINATOR? 

J BR IF YES 

;TWO DRIVES SELECTED? 

JBR IF NO 

? ILLEGAL INPUT DETECTED 

;G0 TRY AGAIN 

;ANY DRIVE SELECTED? 

;BR IF NO 
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2489 








• •«■#«■«■»##*»«•»«■»»«»■»■»*»■«■»»■»»•»*■»*■»»*»•»»•»#«•*•»»«»»*«»»■»•»*««■■»»«•»»»**»» 


2490 








.SBTTL 


ROUTINE 


TO INPUT CSRrDBR 


, AND 


VECTOR ADDRESS AND PRIORITY 


2491 








fCALL 










2492 








;JSR 


PC,P#ASKADR 






2493 


















2494 


012332 


010046 




ASKADR: 


MOV 


R0,-CSP) 




jSAVE R0 


2495 


012334 


104401 


015603 


1$: 


TYPE 


,M5GASK 




;"TACS?" 


2496 


012340 


104411 






RDOCT 






;GET VALUE 


2497 


012342 


012600 






MOV 


CSP)+,R0 




JPICK UP THE OCTAL NUMBER 


2498 


012344 


001423 






BEO 


3$ 




;1F "0" USE OLD VALUES 


2499 


012346 


020027 


160000 




CMP 


R0»#160000 




•MAKE SURE IT IS A BUS ADDRESS 


2500 


012352 


103770 






BLO 


IS 






2501 


012354 


010037 


001206 




MOV 


R0,@»TACSL 




ySAVE TOE TACS 


2502 


012360 


062700 


000002 




ADD 


#2,R0 




J STEP TO TADB ADDRESS 


2503 


012364 


010037 


001212 




HOV 


R0,!a#TADBL 




jAND SAVE IT 


2504 


012370 


013737 


001206 001210 


MOV 


P#TACSL,i#TACSH 




?SETUP TACS UPPER 


2505 


012376 


005237 


001210 




INC 


g#TACSH 




jBYTE POINTER 


2506 


















2507 


012402 


013737 


001212 001214 


MOV 


@#TADBL,§#TADBH 




? SETUP TADB UPPER 


2508 


012410 


005237 


001214 




INC 


&#TADBH 




jBYTE POINTER 


2509 


012414 


1044iJl 


015613 


3$S 


TYPE 


,MSGVEC 




."VECTOR?" 


2510 


012420 


104411 






RDOCT 








2511 


012422 


012600 






MOV 


(SP)-8-,R0 






2512 


012424 


001411 






BEQ 


5$ 






2513 


012426 


020027 


001000 




CMP 


R0,#1000 




J MAKE SUPE ADDRESS IS IN VECTO 


2514 


012432 


103370 






BHIS 


3S 






2515 


012434 


010037 


001216 




MOV 


R0,@#TAVEC 




;SAVE AS VECTOR ADDRESS 


2516 


012440 


062700 


000002 




ADD 


ir2,R0 






2517 


012444 


010037 


001220 




MOV 


R0,9#TAVEC+2 






2518 


012450 


104401 


015623 


5SS 


TYPE 


,MSGPRI 




;ASK FOR PRIORITY 


2519 


012454 


104411 






RDOCT 








2520 


012456 


012600 






MOV 


(SP)-f,R0 






2521 


012460 


001413 






BEO 


6$ 




•IF "0" USE OLD VALUE 


2522 


012462 


020027 


000007 




CMP 


R0,#7 




;MAKE SURE ITS VALID 


2523 


012466 


101370 






BHI 


5S 






2524 


012470 


000300 






SWAB 


R0 




;PUT INTO HIGH BYTE 


2525 


012472 


006200 






ASR 


R0 




;AND SHIFT 


2526 


012474 


006200 






ASR 


R0 




fINTO PROPER 


2527 


012476 


006200 






ASP 


R0 




jPOSITION 


2528 


012500 


042700 


177437 




BIC 


#"C<340>»R0 




jSAVE ONLY PRIORITY BITS 


2529 


012504 


010037 


001222 




MOV 


R0,&#TAPR1O 




? STORE IT AWAY 


2530 


012510 


10440! 


015635 


6SS 


TYPE 


,MTACS 




jTACSs" 


2531 


012514 


016746 


166466 




MOV 


TACSL,-(SP) 


IJSAVE TACSL FOR TYPEOUT 


2532 


012520 


104402 






TYPOC 




?;G0 


TYPE— OCTAL ASCIICALL DIGITS) 


2533 


012522 


104401 


015643 




TYPE 


,MTADB 




f "TADBs" 


2534 


012526 


016746 


166460 




MOV 


TADBL,"(SP) 


IJSAVE TADBL FOR TYPEOUT 


2535 


012532 


104402 






TYPOC 




?;G0 


TYPE-..OCTAL ASCIICALL DIGITS) 


2536 


012534 


104401 


015652 




TYPE 


,MTAVEC 




; "VECTORS" 


2537 


012540 


016746 


166452 




MOV 


TAVEC,«(SP) 


yjSAVE TAVEC FOR TYPEOUT 


2538 


012544 


104402 






TYPOC 




jjGO 


TYPE— OCTAL ASCII(ALL DIGITS) 


2539 


012546 


104401 


015663 




TYPE 


,MTAPRI 




j"PRIORITYs" 


2540 


012552 


016746 


166444 




MOV 


TAPRIO,"(SP) 


IJSAVE TAPRIO FOR TYPEOUT 


2541 


012556 


104402 






TYPOC 




; jGO 


TYPE— OCTAL ASCIICALL DIGITS) 


2542 


012560 


104401 


015676 




TYPE 


fMSGOK 




,--0K?" 


2543 


012564 


104407 






RDCHR 






J GO READ ONE CHARACTER 


2544 


012566 


012600 






MOV 


(SP)+,R0 




;GET IT 
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2545 


012570 


022700 


000015 


2546 


012574 


001406 




2547 


012576 


022700 


000131 


2548 


012602 


001403 




2549 


012604 


104401 


001176 


2550 


012610 


000651 




2551 


012612 


104401 


015704 


2552 


012616 


012600 




2553 


012620 


000207 





CMP 


#15, R0 


BEQ 


7S 


CMP 


#'Y,R0 


BEQ 


7S 


TYPE 


,SQUES 


BR 


1$ 


TYPE 


,MYES 


MOV 


(SP)+rR0 


RTS 


PC 



JIS IT "CR"? 

{BRANCH IF YES 

;IS IT "Y"? 

jIT WAS 

yTYPE »?" 

;AND LET HIM CORRECT THEM 

;TYPE OUT "YES" 

J RESTORE R0 

;AND RETURN 
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2554 








2555 








2556 








2557 








2558 








2559 








2560 








2561 








2562 








2563 








2564 








2565 








2566 








2567 








2568 


012622 


012706 


001100 


2569 


012626 


013704 


001206 


2570 


012632 


013705 


001212 


2571 


012636 


000005 




2572 


012640 


012737 


012622 


2573 


012646 


004737 


013626 


2574 


012652 


010314 




2575 


012654 


112714 


000017 


2576 


012660 


032714 


000040 


2577 


012664 


001775 




2578 


012666 


112714 


000001 


2579 


012672 


104412 




2580 


012674 


032714 


020000 


2581 


012700 


001772 




2582 


012702 


000000 




2583 


012704 


000746 




2584 








2585 








2586 








2587 








2588 








2589 








2590 








2591 








2592 








2593 








2594 








2595 








2596 








2597 








2598 








2599 








2600 


012706 


004737 


013370 


2601 


012712 


012706 


001100 


2602 


012716 


013704 


001206 


2603 


012722 


013705 


001212 


2604 


012726 


000005 




2605 


012730 


012737 


012712 


2606 


012736 


004737 


013626 


2607 


012742 


010314 




2608 


012744 


112714 


000017 


2609 


012750 


032714 


000040 



////////////////////////////////////////////////////////////////////// 
////////////////////////////////////////////////////////////////////// 

THE FOLLOWING ROUTINES CAN BE USED TO MAKE ADJUSTMENTS TO THE TU60 
NOTE: ### BEFORE USING ANY OF THE ROUTINES LOAD AND START AT 214 ### 
////////////////////////////////////////////////////////////////////// 



; WRITE FILE GAPS FROM "HOT" TO 

;START AT 220 

jTHIS ROUTINE CAN BE USED TO 

jTHE "WRITE DELAY MONO". 
• •«■»»«•*«»«•»«■««■«««**«••»»»»«»»«■«•»»»•»■»*«■* 
WFGSUB; MOV #STACK,SP 

MOV P#TACSL,TACS 

MOV ?#TADBL#TADB 

RESET 

MOV #WFGSUB,§#$LPERR 

JSR PCre#NXTDRV 

MOV DRIVE, @TACS 

MOVB #REWINDIGO,0TACS 
100SS BIT »READY,PTACS 

BEQ 100S 
i$! MOVB #WFG|GO,gTACS 

WAITREADY 

BIT SLEADER,9TACS 

BEQ 1$ 

HALT 

BP WFGSUB 



"EOT" 



ADJUST THE "WRITE GAP MONO" AND 



;KEEP THE STACK OUT OF THE WAY 
;SETUP THE TAll STATUS AND 
{DATA BUFFER REGISTERS 
jRESET THE WORLD 

; SETUP THE LOOP ON ERROR ADDRESS 
;G0 SETUP FOR NEXT DRIVE 
jSELECT DRIVE 
jSEND TAPE TO "BOT" 
JWAIT ON READY 

JWRITE A FILE GAP 
jWAIT ON READY 
;AT "CLEAR LEADER"? 
;BR IF NO 
jSTOP IF YES 
jLOOP ON CONT, 



WRTSUB 
WLOOPS 



WRITE CONTINUOUS BLOCKS OF DATA 
START AT 224 

THE PROGRAM WILL HALT THREE(3) TIMES 
AFTER EACH HALT SET THE SWR AND PRESS CONTINUE 
»*»» IF USING SOFTWARE SWITCH REGISTER 
PRESS CONTINUE AND 
PROGRAM WILL TYPE "SWRsXXXXXX NEWs" 
AND ALLOW A NEW VALUE TO BE INPUT 
HALT ! -— SWR<7:0> = NUMBER OF BYTES PER BLOCK 
HALT 2 "-«• SWR<7:0> = PATTERN DESIRED 

HALT 3 SWR<15:0> = OPERATIONAL SWITCH SETTINGS 

jTHIS ROUTINE CAN BE USED TO ADJUST THE «GAP TIME MONO" 



JSR 

MOV 

MOV 

MOV 

RESET 

MOV 

JSR 

MOV 

MOVB 

BIT 



PC,9#SETBUF 
#STACK,SP 
§#TACSL,TACS 
P#TADBL,TADB 

iWLOOPr^l^SLPERR 
PC,?#NXTDRV 
DRIVE, &TACS 
»REWINDJG0,9TACS 
»READY,gTACS 



;GET BLOCK SIZE AND PATTERN 

;KEEP THE STACK OUT OF THE WAY 

jSETUP THE TAll STATUS AND 

;DATA BUFFER REGISTERS 

J RESET THE WORLD 

; SETUP THE LOOP ON ERROR ADDRESS 

;G0 SETUP FOR NEXT DRIVE 

jSELECT DRIVE 

jSEND TAPE TO "BOT" 

jWAIT ON READY 
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2610 


012754 


001775 




2611 


012756 


004737 


013504 


2612 


012762 


032714 


020000 


2613 


012766 


001773 




2614 


012770 


000000 




2615 


012772 


000747 




2616 








2617 








2618 








2619 








2620 








2621 








2622 








2623 








2624 


012774 


012706 


001100 


2625 


013000 


013704 


001206 


2626 


013004 


013705 


001212 


2627 


013010 


000005 




2628 


013012 


012737 


012774 


2629 


013020 


004737 


013626 


2630 


013024 


010314 




2631 


013026 


112714 


000017 


2632 


013032 


032714 


000040 


2633 


013036 


001775 




2634 


013040 


004737 


013546 


2635 


013044 


032714 


020000 


2636 


013050 


001351 




2637 


013052 


000772 




2638 








2639 








2640 








2641 








2642 








2643 








2644 








2645 








2646 








2647 








2648 








2649 








2650 








2651 








2652 








2653 








2654 








2655 


013054 


004737 


013370 


2656 


013060 


012706 


001100 


2657 


013064 


013704 


001206 


2658 


013070 


013705 


001212 


2659 


013074 


000005 




2660 


013076 


012737 


013060 


2661 


013104 


004737 


013626 


2662 


013110 


010314 




2663 


013112 


112714 


000017 


2664 


013116 


032714 


000040 


2665 


013122 


001775 





BEG 


100S 


JSR 


PC,§#WRTBLK 


BIT 


«LEADER,9TACS 


BEQ 


IS 


HALT 




BR 


WLOOP 



; READ CONTINUOUS BLOCKS OF 
;START AT 230 
jTHIS ROUTINE CAN BE USED 
•AND THE "THRESHOLD POT", 



MOV 


#STACK,SP 


MOV 


9#TACSL,TACS 


MOV 


Pf!TADBL,TADB 


RESET 




MOV 


lfRDSUB,§#$LPERR 


JSR 


PC,9#NXTDRV 


MOV 


DRIVE, 9TACS 


MOVB 


#RLWINDlGO,gTACS 


BIT 


#READ¥,@TACS 


BEQ 


100S 


JSR 


PC,9»RDBLK 


BIT 


#LEADER,eTACS 


BNE 


RDSUB 


BR 


IS 



yWRITE A BLOCK 
;AT "CLEAR LEADER" 
jBR IF NO 
;STOP IF "EOT" 
;LOOP IF CONT. 



DATA 

TO ADJUST THE "SIGNAL MONO" 

•KEEP THE STACK OUT OF THE WAY 

;SETUP THE TAU STATUS AND 

;DATA BUFFER REGISTERS 

; RESET THE WORLD 

; SETUP THE LOOP ON ERROR ADDRESS 

;G0 SETUP FOR NEXT DRIVE 

;SELECT DRIVE 

;SEND TAPE TO "BOT" 

jWAIT ON READY 



;READ A BLOCK 

;AT "CLEAR LEADER"? 

jBR IF YES"-»LOOP 



WRITE A FILE GAP AND A BLOCK OF DATA FROM BOT TO EOT 

JSTART AT 234 

ITHE PROGRAM WILL HALT THREE(3) TIMES 

lAFTEP EACH HALT SET THE SWR AND PRESS CONTINUE 

.»**» IF USING SOFTWARE SWITCH REGISTER 

; PRESS CONTINUE AND 

? PROGRAM WILL TYPE "SWRsXXXXXX NEWs" 

; AND ALLOW A NEW VALUE TO BE INPUT 

jHALT 1 — - SWR<7!0> = NUMBER OF BYTES PER BLOCK 

;HALT 2 "''» SWR<7!0> = PATTERN DESIRED 

JHALT 3 «■-- SWR<i5:0> = OPERATIONAL SWITCH SETTINGS 

jTHIS ROUTINE CAN BE USED TO ADJUST THE "WRITE GAP MONO" 

jAND THE "GAP TIME MONO". 



WGPBLKs JSP 
WGBLOP! MOV 
MOV 
MOV 
RESET 
MOV 
JSR 
MOV 
MOVB 
100$: BIT 
BEQ 



PC,e#SETBUF 
rSTACK,SP 
§STACSL,TACS 
gSTADBL,TADB 

lfWGBLOP,e#SLPERR 

PC,g»NXTDRV 

DRIVE, ?TACS 

#REWIND!GO,PTACS 

#READY,?TACS 

100$ 



;GET BLOCK SIZE AND PATTERN 
jKEEP THE STACK OUT OF THE WAY 
;SETUP THE TAU STATUS AND 
jDATA BUFFER REGISTERS 
; RESET THE WORLD 

I SETUP THE LOOP ON ERROR ADDRESS 
;G0 SETUP FOR NEXT DRIVE 
jSELECT DRIVE 
;SEND TAPE TO "BOT" 
jWAIT ON READY 
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2666 


013124 


U2714 


000001 


2667 


013130 


104412 




2668 


013132 


032714 


020000 


2669 


01313t) 


001005 




2670 


013140 


004737 


013504 


2671 


013144 


032714 


020000 


2672 


013150 


001765 




2673 


013152 


000000 




2674 


013154 


000741 




2675 








2676 








2677 








2678 








2679 








2680 








2681 








2682 








2683 








2684 


013156 


012706 


001100 


2685 


013162 


013704 


001206 


2686 


013166 


013705 


001212 


2687 


013172 


000005 




2688 


013174 


012737 


013156 00U10 


2689 


013202 


004737 


013626 


2690 


013206 


010314 




2691 


013210 


112714 


000017 


2692 


013214 


032714 


000040 


2693 


013220 


001775 




2694 


013222 


004737 


013546 


2695 


013226 


032714 


020000 


2696 


013232 


001351 




2697 


013234 


U2714 


000015 


2698 


013240 


104412 




2699 


013242 


032714 


020000 


2700 


013246 


001343 




2701 


013250 


000764 




2702 








2703 








2704 








2705 








2706 








2707 








2708 








2709 








2710 








27U 








2712 


013252 


012706 


00U00 


2713 


013256 


013704 


001206 


2714 


013262 


013705 


001212 


2715 


013266 


000005 




2716 


013270 


012737 


013252 001110 


2717 


013276 


004737 


013626 


2718 


013302 


010314 




2719 


013304 


112714 


000017 


2720 


013310 


032714 


000040 


2721 


013314 


001775 





MOVB 


#WFGJGO,gTACS 


WAITREADY 


BIT 


#LEADER,9TACS 


BNE 


2S 


JSR 


PC,9#WRTBLK 


BIT 


#LEADER,§TACS 


BEQ 


1$ 


HALT 




BR 


WGBLOP 



READ A BLOCK OF DATA AND 
fSTART AT 240 

J THIS ROUTINE IS USED AFTER 
;IT CAN BE USED TO ADJUST T 
•AND THE "TAPE BLANK MONO". 
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yWRlTE A FILE GAP 

jWAIT ON READY 

;AT "CLEAR LEADER"? 

;BR IF YES 

jWRITE A BLOCK 

•AT "CLEAR LEADER"? 

|BR IF NO 

;STOP AT "EOT" 

jSTART OVER ON CONT, 



FILE GAP 

"WRITE A BLOCK AND A FILE GAP" ROUTINE 
HE "SIGNAL MONO", THE THRESHOLD POT" 

jKEEP THE STACK OUT OF THE WAY 
; SETUP THE TAU STATUS AND 
;DATA BUFFER REGISTERS 
; RESET THE WORLD 

; SETUP THE LOOP ON ERROR ADDRESS 
jGO SETUP FOR NEXT DRIVE 
jSELECT DRIVE 
;SEND TAPE TO "BOT" 
;WA1T ON READY 

•READ A BLOCK OF DATA 
;AT "CLEAR LEADER"? 
;BR IF YES 
fGET INTO A FILE GAP 

;AT "CLEAR LEADER"? 

jBR IF YES 

;LOOP 



y SPACE FORWARD FILE GAP FROM "BOT" TO "EOT" 

jSTART AT 244 

J THIS ROUTINE CAN BE USED AFTER "WRITE FILE GAP" FOR LOW SPEED 
•SPACE FOWARD (TAPE BLANK MONO CAN BE ADJUSTED), OR AFTER READ OR 
S WRITE A FILE GAP AND A BLOCK OF DATA FOR HIGH SPEED SPACE FORWARD 
J (SIGNAL MONO CAN BE CHECKED). 
• .»»#»»*»» »»*t« »*»*»»«»»»«»»*«#«»*»««»**«■»«•»***»*»****»*****■****** 

•KEEP THE STACK OUT OF THE WAY 

jSETUP THE TAU STATUS AND 

jDATA BUFFER REGISTERS 

; RESET THE WORLD 

I SETUP THE LOOP ON ERROR ADDRESS 

•GO SETUP FOR NEXT DRIVE 

jSELECT DRIVE 

fSEND TAPE TO "BOT" 

yWAlT ON READY 



PGPBLK 


:; MOV 


g5TACK,SP 




MOV 


g»TACSL,TACS 




MOV 


?#TADBL,TADB 




RESET 






MOV 


#RGPBLK,g#$LPERR 




JSR 


PC,@#NXTDPV 




MOV 


DRIVE, §TACS 




MOVB 


#REWINDlGO,§TACS 


100S! 


BIT 


#READY,iTACS 




BEQ 


100$ 


1$: 


JSR 


PCPgRDBLK 




BIT 


#LEADER,§TACS 




BNE 


RGPBLK 




MOVB 


|fSFBG|GO,PTACS 




WAITREADY 




BIT 


#LEADER,gTACS 




BNE 


RGPBLK 




BR 


IS 



SFFGSB; 


MOV 


#STACK,SP 




MOV 


i#TACSL,TACS 




MOV 


?#TADBL,TADB 




RESET 






MOV 


«SFFGSB,§#SLPERR 




JSR 


PC,§#NXTDRV 




MOV 


DRIVE, §TACS 




MOVB 


#REW1ND1G0,PTACS 


100$? 


BIT 


#READY,?TACS 




BEQ 


100S 
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2722 
2723 
2724 
2725 
2726 
2727 
2728 
2729 
2730 
27J1 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 
2750 
275i 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 
2773 
2774 
2775 
2776 
2777 



3316 
3322 
3324 



112714 
104412 
032714 



3330 001772 
3332 000000 
3334 S00746 



013336 

013340 012737 



013346 
013350 
0133S4 
013356 
013362 
013364 
013366 



013370 
013372 
013374 
013402 
013404 
013406 
013406 
013412 
013414 
013420 
013422 
013426 
013430 
013434 
013440 
013442 
013450 
013452 
013454 
013454 
013462 
013464 
013472 
013474 
013476 
013476 
013500 
013502 



000763 



022767 
001001 
104405 



117737 



022767 
001001 
104405 



MOVE «SFFGlGO,iT&CS 

WAITREADi; 

BIT «LEADER,@TACS 

BEQ 1$ 

HALT 

BR SFFGSB 



JSPACE INTO A FILE GAP 

IWAIT ON READY 

?AT "CLEAR LEADERS? 

jBR IF NO 

ISTOP AT "EOT" 

jLOOP ON CONT. 



? BACK SPACE FILE GAP 
ISTART AT 250 
ITHIS ROUTINE CAN BE USED TO ADJUST OR CHECK THE "SIGNAL MONO". 

BSFGSBS RESET f RESET THE WORLD 



013336 001110 



010314 
112714 
104412 
032714 
001772 



MOV #BSFGSB,@II$LPERR 

MOV DRIVE, §TACS 

MOVB #BSFG|GO,@TACS 

WAITREADY 

BIT #LEADER»@TACS 

BEQ IS 

HALT 

BR B5FGSB 



iLOOP ON ERROR ADDRESS 
J SELECT DRIVE 
JBACK SPACE A FILE GAP 
;WAIT ON READY 
?AT "CLEAR LEADER"? 
jBR IF NO 
I STOP AT BOT 
,• START OVER ON CONf, 



000176 165336 



157700 

001006 

105777 

001402 

012700 000376 

005200 

010037 

005037 

000000 

022767 

001001 

104405 



165526 
165521 



013500 
013502 



000176 165470 



165460 
000176 



f SETUP 

SETBUFI CLR 
HALT 
CMP 
BN£ 
GTSWR 



BISB 

BNE 

TSTB 

BEQ 

MOV 

INC 

MOV 

CLR 

HALT 

CMP 

BNE 

GTSWB 

MOVB 

HALT 

CMP 

BNE 

GTSWR 



BLOCK SIZE AND PATTERN FOR SUBROUTINES 
R0 



1$: 
2SS 



iSWPEGjSWR 
20§ 



@SWR,R0 

2$ 

iSWR-S-l 

1$ 

#376, R0 
R0 

R0,9#BLKLIM 
&#PATTBN 

#SWREG,SWR 
21S 



?SWP,P#PATTRN 



#SWREG,SWR 
22S 



RTS 



BLKLIM! 
PATTRNs 



fOpERATOR PUTS BYTE COUNT IN SWR<780 

jSOFTWARE SWITCH PEG,? 

jNO«LET HIM BE 

jGET NEW VALUE 

fCONTINUE 

jPICKUP THE BYTE COUNT 

;BR IF NON«.EERO 

yCHECK IF GREATER THAN 377 

fBR IF NO 

J SET FOR MAX ALLOWED 

fMAKE IT 377 OR 1 

jSETUP THE BLOCK LIMIT 

jOpERATOR PUTS PATTERN IN SWR<7|0> 

ySOFTWABE SWITCH REG,? 

jNO-LET HIM BE 

jGET NEW VALUE 

^CONTINUE 

,'PICK UP THE PATTERN 

;SET OPERATIONAL SWITCHES 

jlSOFTWARE SWITCH REG«| 

;NO-LET HIM BE 

jGET NEW VALUE 

?CONTINUE 

{RETURN 

;READ AND WRITE BLOCK SIEE 

I PATTERN TO GO ON THE TAPE 
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2778 








2779 








2780 








2781 








2782 


013504 


013701 


013500 


2783 


013510 


U2714 


000003 


2784 


013514 


104413 




2785 


013516 


032714 


000040 


2786 


013522 


001010 




2787 


013524 


005301 




2788 


013526 


002403 




2789 


013530 


113715 


013502 


2790 


013534 


000767 




2791 


013536 


052714 


000020 


2792 


013542 


104412 




2793 


013544 


000207 




2794 








2795 








2796 








2797 








2798 








2799 


013546 


013702 


013500 


2800 


013552 


013700 


013502 


2801 


013556 


112714 


000005 


2802 


013562 


104413 




2803 


013564 


032714 


000040 


2804 


013570 


001012 




2805 


013572 


005302 




2806 


013574 


002405 




2807 


013576 


011501 




2808 


013600 


120001 




2809 


013602 


001767 




2810 


013604 


104007 




2811 


013606 


000406 




2812 


013610 


052714 


000020 


2813 


013614 


104412 




2814 


013616 


005714 




2815 


013620 


100001 




2816 


013622 


104001 




2817 


013624 


000207 




2818 








2819 








2820 








2821 








2822 


013626 


105777 


165306 


2823 


013632 


100416 




2824 


013634 


005003 




2825 


013636 


013701 


001230 


2826 


013642 


122127 


000101 


2827 


013646 


001402 




2828 


013650 


012703 


000400 


2829 


013654 


105711 




2830 


013656 


001002 




2831 


013660 


012701 


001224 


2832 


013664 


010137 


001230 


2833 


013670 


000207 





;#*•»«««■ 



WPTBLK: 



WRITE ROUTINE FOR THE MANUAL OPERATIONS 



MOV @#BLKLIM,R1 
MOVB #WRITE}GO,§TACS 
WAITXFER 



2$: 
3SS 



RDBLKI 



BIT 

BNE 

DEC 

BLT 

MOVB 

BR 

BIS 



SREADY^eTACS 

3S 

PI 

2S 

§#PATTRN,PTADB 

IS 

SILBS,§TACS 



WAITREADY 
RTS PC 



READ ROUTINE FOR THE MANUAL 

MOV 9#BLKHM,R2 

MOV @#PATTRN,B0 

MOVB #READ1G0,PTACS 

WAITXFER 



2$t 
3SS 



BIT 

BNE 

DEC 

BLT 

MOV 

CMPB 

BEQ 

ERROR 

BR 

BIS 



SREADY^iTACS 

3$ 

R2 

2$ 

@TADB,R1 

R0,R1 

IS 

7 

4$ 

SiLBSriTACS 



WAITREADY 
TST ?TACS 
BPL 4$ 
ERROR 1 
RTS PC 



jPICKUP THE BLOCK SIZE 

; START A WRITE 

JWAIT ON TRANSFER REQUEST 

;DID READY SET? 

;BR IF YES 

jCOUNT THIS REQUEST 

;BR IF TIME FOR ILBS 

;PUT DATA ON TAPE 

J LOOP 

J WRITE CRC AND SHUT DOWN 

jWAIT ON THE READY FLAG 



OPERATIONS 

PICKUP THE BLOCK SIZE 

USE THIS DATA PATTERN TO COMPARE TO 

START A BEAD 

WAIT ON TRANSFER BEQUEST 

IS READY SET? 

BR IF YES 

COUNT THIS REQUEST 

BR IF TIME FOR ILBS 

READ THE DATA BUFFER 

CHECK THE DATA 

BR IF OK 

BAD DATA 

GET OUT 

READ ILBS 

WAIT ON READY 
fCHECK FOR ERROR 
;BR IF NONE 
; ERROR OCCURRED 
jRETURN 



f J ###»«■»»#« ft**®®**!* «■»•»###»«■*«•»#•»«•«■#«»«•#»■»•»•»«■ »*»-»*«» »«■*#«■■»■«■«■##»«■## 



ROUTINE TO CHANGE DRIVES 



NXTDRVS 


TSTB 


9SWR 




BMI 


3S 




CLR 


DRIVE 




MOV 


?SDRVPNT,B1 




CMPB 


iRD^fU'h 




BEO 


IS 




MOV 


SUNIT, DRIVE 


ISI 


TSTB 


(Rl) 




BNE 


2$ 




MOV 


#DRVKEY,R1 


2SS 


MOV 


Rl,f#DRVPNf 


3SI 


RTS 


PC 



?IS SW07 ON A (U? 

jBR IF YES 

;SET DRIVE TO "A" 

jGET DRIVE POINTER 

jIS IT DRIVE "A"? 

jBR IF YES 

;SET DRIVE TO "B" 

JLAST DRIVE BEEN SELECTED 

jBR IF NO 

jRESET DRIVE POINTER 

jSAVE DRIVE POINTER FOR NEXT TIME 

jGO BACK 
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2834 








» 1 »»««*»«»#««»«j®«»#»#««#*«##®»#»*»« 


l4*#*#»»»«*'»«»»»#*»#«-»*#«*»»»«»# 


2835 
2836 








ISBTTL 




ROUTINE TO EXAMINE 


DRIVE(S) FOR AVAILABLITY 


2837 
















2838 








ICALLS 








2839 








J 


MOV 


l!DRVKEYfR0 




2840 








1 


JSR 


PC,e#EXAM 


|R1 IS DESTROYED 


284! 








1 


NORMAL 


RETURN 




2842 








? 


EPPOR 


RETURN 




2843 
2844 


013672 


013701 


001206 


EXAMI 


MOV 


##TACSL,R1 


jPICKUP THE "CONTROL & STATUS" 


2845 


013676 


005011 






CLR 


(Ri) 


jDRlVEsBA", FUNCTlONs'»WFG*' 


2846 


013700 


122710 


000101 




CMPB 


#'A,(R0) 


{EXAMINE DRIVE "A"? 


2847 


013704 


001402 






BEQ 


IS 


J BR IF YES 


2848 


013706 


052711 


000400 




BIS 


#UNIT,(RU 


jSELECT DRIVE «B" 


2849 


01J712 


032711 


000040 


1§! 


BIT 


KREADY^CRU 


J WAIT ON READY 


28S0 


013716 


00177S 






BEQ 


IS 




2851 


013720 


0057U 






TST 


(Ri) 


jANY ERROR? 


2852 


013722 


100024 






BPL 


4$ 


jBR IF NO 


2853 


013724 


032711 


001000 




BIT 


#OrFLINE,CRl) 


?ERROR DUE TO "OFF LINE"? 


2854 


013730 


001017 






BNE 


3S 


?BR IF YES 


2855 


013732 


032711 


010000 




BIT 


#WRTLOCK,(RU 


;ERROR DUE TO "WRITE LOCK"? 


2856 


013736 


001411 






BEQ 


2S 


IBR IF NO 


2857 


013740 


122777 


000201 


165172 


CMPB 


#BIT07iBIT00,#SWR 


; "READONLY" SELECTED? (RDiPAS) 


2858 


013746 


001412 






BEQ 


4$ 


JBR IF YES 


2859 


013750 


122777 


000203 


165162 


CMPB 


#BlT07iBlT0UBlT00 


,iSWR f(RD2PAS)? 


2860 


01J756 


001406 






BEQ 


40 


;BR IF YES 


2861 


013760 


000403 






BR 


3S 


jTAKE THE ERROR EXIT 


2862 


013762 


0327U 


020000 


2$! 


BIT 


»LEADERHRn 


{ERROR DUE TO "CLEAR LEADER"? 


2863 


013766 


001002 






BNL 


4S 


?BR IF YES 


2864 


013770 


062716 


000002 


3S! 


ADD 


»2,(SP) 


{TAKE ERROR RETURN 


2865 


013774 


000207 




4SI 


RTS 


PC 


{RETURN 
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2866 








2867 








2868 








2869 








2870 








2871 








2872 








2873 








2874 








2875 








2876 








2877 








2878 








2879 








2880 








2881 








2882 








2883 


013776 


105767 


165155 


2884 


014002 


100002 




2885 


014004 


000000 




2886 


014006 


000407 




2887 


014010 


010046 




2888 


014012 


017600 


000002 


2889 


014016 


112046 




2890 


014020 


001005 




2891 


014022 


005726 




2892 


014024 


012600 




2893 


014026 


062716 


000002 


2894 


014032 


000002 




2895 


014034 


122716 


000011 


2896 


014040 


001430 




2897 


014042 


122716 


000200 


2898 


014046 


001006 




2899 


014050 


005726 




2900 


014052 


104401 




2901 


014054 


001177 




2902 


014056 


105067 


000130 


2903 


014062 


000755 




2904 


014064 


004767 


000056 


2905 


014070 


126726 


165062 


2906 


014074 


001350 




2907 


014076 


016746 


165052 


2908 








2909 


014102 


105366 


000001 


2910 


014106 


002770 




2911 


014110 


004767 


000032 


2912 


014114 


105367 


000072 


2913 


014120 


000770 




2914 








2915 








2916 








2917 


014122 


112716 


000040 


2918 


014126 


004767 


000014 


2919 


014132 


132767 


000007 


2920 


014140 


001372 




2921 


014142 


005726 





.SBTTL TYPE ROUTINE 

{*»#»««#«»-» ■»«»«*»»*«•««*««■»*»*•»*»»**«»««»«■»«»«■«•»»»«*»»«■ «■■»«■«■»#»#»«• 

^ROUTINE TO TYPE ASCIE MESSAGE. MESSAGE MUST TERMINATE WITH A BYTE, 

»THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

»NOTEl! 

*N0TE2l 

*N0TE3: 



SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER^ 
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED^ 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER, 



*CALLS 
»1) USING A 
« TYPE 
»0R 

* TYPE 

* ME5ADR 



TSTB 

BPL 

HALT 

BR 

MOV 

MOV 

MOVB 

BNE 

TST 

MOV 

ADD 

RTI 

CMPB 

BEQ 

CMPB 

BNE 

TST 

TYPE 

SCRLF 

CLRB 

BR 

JSR 

CMPB 

BNE 

MOV 



TRAP INSTRUCTION 
,MESADR 



60SS 

3s: 



5S5 

6SS 



OECB 

BLT 

JSR 

DECB 

BR 



STPFLG 
IS 

3S 

R0,-(SP) 

?2(SP)»R0 

(R0)+,-(SP) 

4$ 

(SP) + 

(SP)+,R0 

»2,(SP) 

#HT,(SP) 

8S 

«CRLF,(SP) 

5$ 

(SP) + 



SCHARCNT 

2S 

PCf STYPEC 

SFILLC#CSP)4. 

2$ 

SNULL, «(SP) 

l(SP) 
6S 

PC,$TYPEC 

SCHARCNT 

7S 



{HORIEONTAL TAB PROCESSOR 



8S| 
9SS 



MOVB 

JSR 

BITS 

BNE 

TST 



§' fCSP) 
PC, STYPEC 
#7, SCHARCNT 
9$ 
(SP)*- 



{{MESADR IS FIRST ADDRESS OF AN ASCIE STRING 



(IS THERE A TERMINAL? 

IBR IF YES 

IHALT HERE IF NO TERMINAL 

[LEAVE 

[SAVE R0 

[GET ADDRESS OF ASCIE STRING 

(PUSH CHARACTER TO BE TYPED ONTO STACK 

[BR IF IT ISN'T THE TERMINATOR 

[IF TERMINATOR POP IT OFF THE STACK 

[RESTORE R0 

[ADJUST RETURN PC 

[RETURN 

[BRANCH IF <HT> 

{{BRANCH IF NOT <CRLF> 

{{POP <CR><LF> EQUIV 
I {TYPE A CR AND LF 

{{CLEAR CHARACTER COUNT 

{{GET NEXT CHARACTER 

{{GO TYPE THIS CHARACTER 

{{IS IT TIME FOR FILLER CHARS,? 

{{IF NO GO GET NEXT CHAR. 

{{GET # OF FILLER CHARS. NEEDED 

{{AND THE NULL CHAR, 

{{DOES A NULL NEED TO BE TYPED? 

{{BR IF NO--GO POP THE NULL OFF OF STACK 

{{GO TYPE A NULL 

{{DO NOT COUNT AS A COUNT 

{{LOOP 



{{REPLACE TAB WITH SPACE 
{{TYPE A SPACE 
{{BRANCH IF NOT AT 
{{TAB STOP 
{{POP SPACE OFF STACK 
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2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974 
2975 
2976 
2977 



4144 
4146 
4152 
4154 
4162 
4170 
4172 
4176 
4200 
4206 
4210 
4212 
4214 



000724 
105777 
100375 
116677 
122766 
001003 
105067 



122766 
001402 
105227 



014216 
014220 
014226 
014230 
014232 
014234 
014236 
014240 
014242 
014244 
014246 
014250 
014252 
014254 
014256 
014260 
014262 
014264 
014270 
014272 
014274 
014276 
014302 
014306 
014310 
014312 
014314 
014316 



164770 

000002 



000012 000002 1$ 



STYPEC: TSTB 
BPL 
MOVB 
CMPB 
BNE 
CLRB 
BR 

CMPB 
BEO 
INCB 
SCHARCNT:,WOPD 
STYPEXs RTS 



2$ 

§STPS 

STYPEC 

2(SP),i»$TPB 

#CR,2(SP) 

1$ 

SCHARCNT 

STYPEX 

#LF#2(SP) 

STYPEX 

(PC)* 



PC 



IjGET NEXT CHARACTER 

ffWAIT UNTIL PRINTER IS READY 

j?LOAD CHAR TO BE TYPED INTO DATA REG, 

j;IS CHARACTER A CARRIAGE RETURN? 

JjBRANCH IF NO 

nYES-"CLEAR CHARACTER COUNT 

JJEXIT 

;fIS CHARACTER A LINE FEED? 

jjBRANCH IF YES 

yjCOUNT THE CHARACTER 

j;CHARACTER COUNT STORAGE 



.SBTTL READ AN OCTAL NUMBER FROM THE TTY 

«THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 

^CHANGE IT TO BINARY. 

*CALL! 

* RDOCT jyREAD AN OCTAL NUMBER 

« RETURN HERE ;;LOW ORDER BITS ARE ON TOP OF THE STACK 

» jjHIGH ORDER BITS ARE IN fHIOCT 



011646 
016666 
010046 
010146 
010246 
104410 
012600 
005001 
005002 
112046 
001412 
006301 
006102 
006301 
006102 
006301 
006102 
042716 
062601 
000764 
00572b 
010166 
010267 
012602 
012601 
012600 
000002 
000000 



SRDOCT! 



000004 000002 



000012 
000010 



MOV 


(SP),-(SP) 


MOV 


4(SP),2(SP) 


MOV 


R0,-(SP) 


MOV 


R1,-(SP) 


MOV 


R2,-(SP) 


RDLIN 




MOV 


(SP)+,R0 


CLR 


Rl 


CLR 


R2 


MOVB 


(R0)+,"(SP) 


BEQ 


3S 


ASL 


Ri 


ROL 


R2 


ASL 


Rl 


POL 


R2 


ASL 


Rl 


ROL 


R2 


BIC 


#"C7,(SP) 


ADD 


(SP)+,R1 


BR 


2S 


TST 


(SP)* 


MOV 


R1»12(SP) 


MOV 


R2,SHI0CT 


MOV 


(SP)+#R2 


MOV 


(SP)*,R1 


MOV 


{SP)*fm 


RTI 





.SBTTL TTY INPUT ROUTINE 



.ENABL LSB 



JPROVIDE SPACE FOR THE 

J INPUT NUMBER 

jPUSH R0 ON STACK 

JPUSH Rl ON STACK 

yPUSH R2 ON STACK 

jREAD AN ASCIE LINE 

;GET ADDRESS OF 1ST CHARACTER 

jCLEAR DATA WORD 

;PICKUP THIS CHARACTER 

;IF ZERO GET OUT 

j*2 



j»8 

JSTRIP THE ASCII JUNK 

;ADD IN THIS DIGIT 

jLOOP 

JCLEAN TERMINATOR FROM STACK 

;SAVE THE RESULT 

jpOp STACK INTO R2 

fPOP STACK INTO Rl 

;POP STACK INTO R0 

; RETURN 

•HIGH ORDER BITS GO HERE 



»#««■»«•«»*■»«••»»»«•«•»**«*»«■&■»**«•■»«■««*«■*»* 
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2978 








2979 








2980 








298! 








2982 








2983 








2984 


014320 


022767 


000176 164612 


2985 


014326 


001074 




2986 


014330 


105777 


164610 


2987 


014334 


100071 




2988 


014336 


U7746 


164604 


2989 


014342 


042716 


177600 


2990 


014346 


022726 


000007 


2991 


014352 


001062 




2992 


014354 


126727 


164554 000001 


2993 


014362 


001456 




2994 








2995 


014364 


104401 


015045 


2996 


014370 


104401 


015052 


2997 


014374 


016746 


163576 


2998 


014400 


104402 




2999 


014402 


104401 


015063 


3000 


014406 


005046 




3001 


014410 


005046 




3002 


014412 


105777 


164526 


3003 


014416 


100375 




3004 








3005 


014420 


117746 


164522 


3006 


014424 


042716 


177600 


3007 








3008 








3009 








3010 


014430 


021627 


000025 


30U 


014434 


001005 




3012 


014436 


104401 


015040 


3013 


014442 


062706 


000006 


3014 


014446 


000757 




3015 








3016 








3017 


014450 


021627 


000015 


3018 


014454 


001022 




3019 


014456 


005766 


000004 


3020 


014462 


001403 




3021 


014464 


016677 


000002 164446 


3022 


014472 


062706 


000006 


3023 


014476 


104401 


001177 


3024 


014502 


126727 


164427 000001 


3025 


014510 


001003 




3026 


014512 


012777 


000100 164424 


3027 


014520 


000002 




3028 


014522 


004767 


177420 


3029 


014526 


021627 


000060 


3030 


014532 


002420 




3031 


014534 


021627 


000067 


3032 


014540 


003015 




3033 


014542 


042726 


000060 



SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 

WHEN OPERATING IN TTY FLAG MODE. 

j;IS THE SOFT-SWR SELECTED? 

JjBRANCH IF NO 

J jCHAR THERE? 

;;IF NO, DON'T WAIT AROUND 

jjSAVE THE CHAR 

j;STRlP-OFF THE ASCII 

; ;IS IT A CONTROL G? 

;;N0, RETURN TO USER 

j;ARE WE RUNNING IN AUTO"MODE? 

JjBRANCH IF YES 

jjECHO THE CONTROL-G CG) 

jjTYPE CURRENT CONTENTS 

jjSfiVE SWREG FOR TYPEOUT 

jjGO TYPE— OCTAL ASCIKALL DIGITS) 

J ; PROMPT FOR NEW SWR 

jjCLEAR COUNTER 

•jTHE NEW SWR 

jjCHAR THERE? 

jjIF NOT TRY AGAIN 

JJPICK UP CHAR 
jjMAKE IT 7-BIT ASCII 



jjIS IT A CONTROL"U? 
JjBRANCH IF NOT 
jjYES, ECHO C0NTROL»U ("U) 
J J IGNORE PREVIOUS INPUT 
JJLET'S TRY IT AGAIN 



KSWRJ CMP 


#SWREG,SWR 


BNE 


15S 


TSTB 


9$TKS 


BPL 


15S 


MOVB 


p$TKB,-(SP) 


BIC 


#-C177,(SP) 


CMP 


»7,(SP)+ 


BNE 


15S 


CMPB 


$AUT0B,#1 


BEQ 


155 


TYPE 


,SCNTLG 


;tswr: type 


,SMSWR 


MOV 


SWREG, "(SP) 


TYPOC 




TYPE 


,$MNEW 


>SI CLR 


«-(SP) 


CLR 


"(SP) 


5 J TSTB 


§STKS 


BPL 


7S 


MOVB 


g$TKB,-(SP) 


BIC 


«-C177,(SP) 



9SS 


CMP 


(SP),#25 




BNE 


10S 




TYPE 


,SCNTLU 


20SI 


ADD 


#6,SP 




BR 


19S 


10SS 


CMP 


(SP),S15 




BNE 


16$ 




TST 


4(SP) 




BEO 


lis 




MOV 


2(SP),§SWR 


U$! 


ADD 


«6,SP 


i4$s 


TYPE 


,$CRLF 




CMPB 


SINTAG,S1 




BNE 


15$ 




MOV 


#100,?STKS 


15S5 


RTI 




16$? 


JSR 


PC, STYPEC 




CMP 


(SP),#60 




BLT 


18$ 




CMP 


(SP),#67 




BGT 


18S 




BIC 


#60,(SP)4- 



jjIS IT A <CR>? 

JjBRANCH IF NO 

jjYES, IS IT THE FIRST CHAR? 

JjBRANCH IF YES 

jjSAVE NEW SWR 

jjCLEAR UP STACK 

J JECHO <CR> AND <LF> 

jjRE«ENABLE TTY KBD INTERRUPTS? 

JjBRANCH IF NOT 

jjRE-ENABLE TTY KBD INTERRUPTS 

J J RETURN 

J J ECHO CHAR 

jjCHAR < 0? 

JjBRANCH IF YES 

JjCHAR > 7? 

JjBRANCH IF YES 

jjSTRIP»OFF ASCII 



TAll BASIC LOGIC TEST (PART i) MAINDEC-1 1 -DZTAA-C 
DZTAAC.NEW TTY INpUT ROUTINE 



3034 
3035 
3036 
3037 
3038 
3039 
3040 
3041 
3042 
3043 
3044 
3045 
3046 
3047 
3048 
3049 
3050 
3051 
3052 
3053 
3054 
3055 
3056 
3057 
3058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
3067 
3068 
3069 
3070 
3071 
3072 
307 3 
3074 
3075 
3076 
3077 
3078 
3079 
3080 
3081 
3082 
3083 
3084 
3085 
3086 
3087 
3088 
3089 



014546 
014552 
014554 
014556 
014560 
014562 
014566 
014572 
014574 
014600 



005766 
001403 
006316 
006316 
006316 
005266 
056616 
000707 
104401 
000720 



014602 
014604 
014612 
014616 
014620 
014626 
014631 
014642 
014644 
014650 
014652 
014656 
014662 
014666 
014670 
014672 
014700 
014702 
014710 
014712 
014720 



014722 
014724 
014730 
014734 
014736 
014740 
014742 



000002 
177776 



011646 
016666 
105777 
100375 
117766 
042766 
026627 
001013 
105777 
100375 
117746 
042716 
022627 
001366 
000750 
026627 
002407 
026627 
003003 
042766 

000002 



010346 
012703 
022703 
101405 
104407 
112613 
122713 



000004 
164326 

164322 
177600 
000004 



164270 
177600 
000021 



015030 
015040 
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;|IS THIS THE FIRST CHAR 
MBBANCH IF YES 
JNO, SHIFT PRESENT 

CHAR OVER TO HAKE 
ROOM FOR NEW ONE, 
KEEP COUNT OF CHAR 
SET IN NEW CHAR 
GET THE NEXT ONE 
TYPE ?<CR><LF> 
;SIMULATE CONTROL-U 



;«THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 

;«CALL! 

;» PDCHR ; J INPUT A SINGLE CHARACTER FROM THE TTY 

;» RETURN HERE j {CHARACTER IS ON THE STACK 

;» 1 1 WITH PARITY BIT STRIPPED OFF 



000004 
000004 
000023 



0040 000004 





TST 


2(SP) 




BEQ 


17S 




ASL 


(SP) 




ASL 


(SP) 




ASL 


(SP) 


17SS 


INC 


2(SP) 




BIS 


-2(SP),(SP) 




BR 


7S 


18$: 


TYPE 


rSQUES 




BR 


20S 


.DSA8L 


LSB 





SRDCH 

IS: 



000004 000140 3$; 



000004 000175 



4S: 
• »«• 

*TH 
»CA 



MOV 
MOV 
TSTB 
BPL 
MOVE 
BIC 
CMP 
BNE 
TSTB 
BPL 
MOVB 
BIC 
CMP 
BNE 
BP 
CMP 
BLT 
CMP 
BGT 
BIC 
RTI 
»«•««■*»■» 
IS ROUT! 
LL: 

RDLI! 
RETU 



(SP), 

4(SP) 

eSTKS 

IS 

§STKB 

»"C<17 

4(SP) 

3S 

PSTKS 

2S 

eSTKB 

#*C177 

(SP) + 

2S 

IS 

4(SP) 

4S 

4(SP) 

4S 

#40, 4( 



(SP) 
2(SP) 



4{SP) 
7>,4( 

#23 



-(SP) 
,CSP) 

#21 



#140 
«175 
SP) 



NE WILL INPUT A 



JJPUSH DOWN THE PC 
jjSAVE THE PS 
nwAIT FOR 
yjA CHARACTER 
;;READ THE TTY 
SP) yjGET RID OF JUNK IF ANY 
;>IS IT A CONTROL-S? 
; {BRANCH IF NO 
{{WAIT FOP A CHARACTER 

JLOOP UNTIL ITS THERE 

;GET CHARACTER 

{MAKE IT 7-8IT ASCII 

;IS IT A CONTROL-Q? 

;IF NOT DISCARD IT 

jYES, RESUME 

JIS IT UPPER CASE? 

jBRANCH IF YES 

J IS IT A SPECIAL CHAR? 

jBRANCH IF YES 

jMAKE IT UPPER CASE 

;G0 BACK TO USER 
»#»*«■»»««»*■»*»«■*«»»•»«•»«■■»*»«•»«■««*■»«•■»»»» 
STRING FROM THE TTY 

jjINPUT A STRING FROM THE TTY 

jjADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 

|;TERMINAT0R WILL BE A BYTE OF ALL 0'S 



SRDLIN: 

is: 



MOV 

MOV 

CMP 

BLOS 

RDCHR 

MOVB 

CMPB 



R3,-(SP) 

#$TTYIN,R3 

»$TTYIN+8,,R3 



(SP)+,(R3) 
#177, (R3) 



JJSAVE R3 

f ;GET ADDRESS 

IJBUFFEH FULL? 

jjBR IF YES 

;;G0 READ ONE CHARACTER FROM THE TTY 

jlGET CHARACTER 

j;IS IT A RUBOUT 



TftU BASIC LOGIC TEST (PART 1) MAINDEC-1 1 «»DETAA"C 
DZTAAC.NEW TTY INPUT ROUTINE 
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3090 
3091 
3092 
3093 
3094 
3095 
3096 
3097 
3098 
3099 
3100 
3101 
3102 
3103 
3104 
3105 
3106 
3107 
3108 
3109 
3110 
3111 
3112 
3113 
3114 
3115 
3116 
ill? 
3118 
3119 
3U0 
3121 
3122 
3123 
3124 
3125 
3126 
3127 
3128 
3129 
3130 
3131 
3132 
3133 
3134 
3135 
3136 
3137 
3138 
3139 
3140 
3141 
3142 
3143 
3144 
3145 



014746 
014750 
014754 
014756 
014762 
014766 
014772 
014774 
015000 
015004 
015006 
015010 
015016 
015024 
015026 
015027 
015030 
015040 
015045 
015052 
015060 
P15063 
015070 



015074 
015100 
015106 
015112 
015116 
015120 
015126 
015134 



001003 
104401 
000763 
111367 
104401 
122723 
001356 
105063 
104401 
012603 
011646 
016666 
012766 
000002 
000 

000 

000010 
052536 

136 
005015 
020075 

040 
036440 



000044 
015026 
000015 

177777 
001200 



000004 
015030 



005015 
006507 
053523 
000 
047040 
000040 



4S: 



3S; 



017646 
116667 
112667 
062716 
000406 
112767 
112767 
112767 



000207 
000002 



000002 
000004 



000012 
020122 



BNE 
TYPE 
BP 

MOVB 
TYPE 
CMPB 
BNE 
CLRB 
TYPE 
MOV 
MOV 
MOV 
MOV 
RTI 
,BYTE 
.BYTE 
STTYIN: ,BLKB 
SCNTLU: ,ASCIE 
SCNTLG: .ASCIZ 
SMSWR; .ASCIZ 



9S: 



3S 

,SQUES 

IS 

(R3),9S 

,9S 

#15,(R3)+ 

2S 

«-i(R3) 

,SLF 

(SP)t,R3 

(SP),-{SP) 

4(SP),2(SP) 

#$TTYIN,4(SP) 



/"U/<15><12> 
/''G/<15><12> 
<15><12>/SWR 



; JSKIP IF NOT 

;;TYPE A '?' 

jjCLEAR THE BUFFER AND LOOP 

jjECHO THE CHARACTER 

JCHECK FOR RETURN 
ILOOP IF NOT RETURN 
yCLEAR RETURN (THE 15) 
J TYPE A LINE FEED 
jRESTORE R3 

{ADJUST THE STACK AND PUT ADDRESS OF THE 
FIRST ASCII CHARACTER ON IT 

; RETURN 

{STORAGE FOR ASCII CHAR. TO TYPE 

{TERMINATOR 

{RESERVE 8 BYTES FOR TTY INPUT 

{CONTROL "U" 

{CONTROL "G" 



SMNEW: »ASCIZ / NEW = / 

«SBTTL BINARY TO OCTAL (ASCII) AND TYPE 

{»«*»««■«■**«■■»*»■»*»»•««»■»■»«■»■»«•#■»»*•»«■*»■»»•»<**•»»«*«■»«•#«•#»##«•»*«■**»«•*«■« 

«THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A e^DlGlT 

«OCTAL (ASCII) NUMBER AND TYPE IT, 

»STYPOS«--"ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

»CALL: 

» MOV NUM,"(SP) {{NUMBER TO BE TYPED 

» TYPOS {{CALL FOR TYPEOUT 

* .BYTE N {{N=l TO 6 FOR NUMBER OF DIGITS TO TYPE 
» .BYTE M {{M=l OR 

« {{i=TYPE LEADING ZEROS 

« {{0=SUPPHESS LEADING ZEROS 

* 

*STYPON"«»"ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

»STYPOS OR STYPOC 

*CALL: 

» MOV NUM,«'(SP) {{NUMBER TO BE TYPED 

* TYPON {{CALL FOR TYPEOUT 
» 

»STYPOC»-«ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
*CALL: 

* MOV NUM,»(SP) {{NUMBER TO BE TYPED 

* TYPOC {{CALL FOR TYPEOUT 



STYPOS; 



000006 
000005 



000171 
000165 
000154 



MOV 

MOVB 

MOVB 

ADD 

BR 

STYPOC: MOVB 
MOVB 

STYPON: MOVB 



i(SP),«(SP) 

1(SP),S0FILL 

(SP) + ,SOMODE-fl 

#2,(SP) 

STYPON 

#1,$0FILL 

»6,S0M0DE+i 

»5,S0CNT 



{{PICKUP THE MODE 
{{LOAD ZERO FILL SWITCH 
{{NUMBER OF DIGITS TO TYPE 
{{ADJUST RETURN ADDRESS 

{{SET THE ZERO FILL SWITCH 
{{SET FOR SIX(6) DIGITS 
{{SET THE ITERATION COUNT 



fAU BASIC LOGIC TEST (PART 1) MIINDEC-l |"DETAA«.C 
DETAAC.NEW BINARY TO OCTAL (ASCII) AND TYPE 



3146 


S15142 


010346 






MOV 


R3,»CSP) 


3147 


015144 


010446 






MOV 


R4,'»CSP) 


3148 


015146 


010546 






MOV 


R5*-(SP) 


3149 


015150 


116704 


000145 




MOVB 


$0M0DE4'1;R4 


3150 


ilSlS4 


005404 






NEG 


R4 


3151 


P15156 


062704 


000006 




ADD 


»6,R4 


3152 


015162 


U0467 


000132 




MOVB 


R4»S0M0DE 


3153 


®15166 


116704 


000125 




MOVB 


$0FILL,R4 


3154 


015172 


016605 


000012 




MOV 


12CSP)»R5 


3155 


015176 


005003 






CLR 


R3 


3156 


015200 


®06105 




ISS 


ROL 


RS 


3157 


015202 


000404 






BR 


3S 


3158 


015204 


006105 




2SI 


ROL 


R5 


3159 


015206 


006105 






ROL 


R5 


3160 


015210 


006105 






ROL 


R5 


3161 


015212 


010503 






MOV 


R5,R3 


3162 


015214 


006103 




3$S 


ROL 


B3 


3163 


015216 


103367 


000076 




DECS 


SOMODE 


3164 


015222 


100016 






BPL 


7S 


3165 


015224 


042703 


177770 




BIC 


#177770, R3 


3166 


01S230 


001002 






BNE 


4$ 


3167 


015232 


005704 






TSf 


R4 


3168 


015234 


001403 






BEQ 


5$ 


3169 


015236 


005204 




4SI 


INC 


R4 


3170 


013240 


0S2703 


000060 




BIS 


«'0,R3 


3171 


015244 


0S2703 


000040 


§$l 


BIS 


#' ,m 


3172 


0152S0 


110367 


000040 




MOVB 


R3,8S 


3173 


015254 


104401 


015314 




TYPE 


,8$ 


3174 


015260 


105367 


000032 


7SS 


DECB 


SOCNT 


3175 


015264 


003347 






BGT 


as 


3176 


015266 


002402 






BLT 


6S 


3177 


015270 


005204 






INC 


R4 


3178 


015272 


000744 






BR 


2S 


3179 


015274 


012605 




6S! 


MOV 


(SP)"t-»R5 


3180 


015276 


012604 






MOV 


CSP5f,R4 


3181 


015300 


012603 






MOV 


(SP)-«-»R3 


3182 


015302 


016666 


000002 000004 


MOV 


2CSP)»4CSP) 


3183 


015310 


012616 






MOV 


CSP)+»(SP) 


3184 


015312 


000002 






BTI 




3185 


015314 


000 




8$! 


.BYTE 





3186 


015315 


000 






.BYTE 





3187 


015316 


000 




SOCNTS 


.BliTE 





3188 


015317 


000 




S0FILLS 


.BYTE 





3189 


015320 


000000 




SOMODEs 


.WORD 
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IJSAVE R3 
jlSAVE R4 
nSAVE R5 
jjGET THE NUMBER OF DIGITS TO TYPE 

IISUBTRACT IT FOR MAX, ALLOWED 
nSAVE IT FOR USE 
nGET THE EERO FILL SWITCH 
nPICKUP THE INPUT NUMBER 
nCLEAR THE OUTPUT WORD 
IJROTATE MSB INTO "C 
?jGO DO MSB 
IIFORM THIS DIGIT 



JGET LSB OF THIS DIGIT 

jTYPE THIS DIGIT? 

|BR IF NO 

IGET RID OF JUNK 

J TEST FOB 

^SUPPRESS THIS 0? 

fBR IF YES 

jDON'T SUPPRESS ANYMORE 0'S 

;MAKE THIS DIGIT ASCII 

jMAKE ASCII IF NOT ALREADY 

rSAVE FOR TYPING 

IGO TYPE THIS DIGIT 

jCOUNT BY 1 

|BR IF MORE TO DO 

JBR IF DONE 

»INSURE LAST DIGIT ISN'T A BLANK 

jGO DO THE LAST DIGIT 

IRESTORE R5 

IRESTORE R4 

{RESTORE R3 

>SET THE STACK FOB RETURNING 

J RETURN 

{STORAGE FOR ASCII DIGIT 

{TERMINATOR FOR TYPE ROUTINE 

{OCTAL DIGIT COUNTER 

{EERO FILL SWITCH 

{NUMBER OF DIGITS TO TYPE 



TAIl BASIC LOGIC TEST (PART I) 
DETAAC.NEW TRAP DECODER 



MAINDEC^ll^DETAA-C 
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3190 






3191 






3192 






3193 






3194 






3195 






3196 






3197 






3198 


015322 


010046 


3199 


015324 


816600 000002 


3200 


015330 


005740 


3201 


015332 


111000 


3202 


015334 


006300 


3203 


015336 


016000 015356 


3204 


015342 


000200 


3205 






3206 






3207 






3208 






3209 


015344 


0U646 


3210 


015346 


016666 000004 


3211 


015354 


000002 


3212 






3213 






3214 






3215 






3216 






3217 






3218 






3219 






3220 


015356 


015344 


3221 


015360 


013776 


3222 


015362 


015120 


3223 


015364 


015074 


3224 


015366 


015134 


3225 






3226 


015370 


014370 


3227 






3228 


015372 


014320 


3229 


015374 


014602 


3230 


015376 


014722 


3231 


015400 


014216 


3232 


015402 


012014 


3233 


015404 


012120 



,SBTTL TRAP DECODER 



|«THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE »TRAP« INSTRUCTION 

{»ANO USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 

{»0F THE DESIRED ROUTINE^ THEN USING THE ADDRESS OBTAINED IT WILL 
{«G0 TO THAT ROUTINE. 

STRAPS 



MOV 


R0,»(SP5 


{{SAVE R0 


MOV 


2(SP)#R0 


{{GET TRAP ADDRESS 


TST 


«(R0) 


{{BACKUP BY 2 


MOVB 


(R0),R0 


{{GET RIGHT BYTE OF TRAP 


ASL 


R0 


{{POSITION FOR INDEXING 


MOV 


STRPAD(R0),R0 


{{INDEX TO TABLE 


BTS 


R0 


{{GO TO ROUTINE 



{THIS IS USE TO HANDLE THE "GETPRI" MACRO 



MOV 
MOV 
RTI 



(SP),-(SP) 
4(SP),2(SP} 



{{MOVE THE PC DOWN 
{{MOVE THE PSW DOWN 
; {RESTORE THE PSW 



sSBTTL TRAP TABLE 

{»THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;®BY THE "TRAP" INSTRUCTION* 



ROUTINE 

,WORD 

STYPE 

STYPOC 

STYPOS 

STYPON 



$TRAP2 

{{CALLsTYPE 

{{CALLsTYPOC 

{{CALLsTYPOS 

{{CALLsTYPON 



gGTSWB {{CALLsGTSWR 



TRAP+IC 104401) TTY TYPEOUT ROUTINE 

TRAP+2C104402) TYPE OCTAL NUMBER (WITH LEADING EEROS) 

TRAP+3C104403) TYPE OCTAL NUMBER (NO LEADING EEROS) 

TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 

TRAP + 5(104405) GET SOFT-SI^R SETTING 



SCKSWR {{CALLsCKSWR TRAP-l-6 ( 104406) TEST FOR CHANGE IN SOFT-SWR 
SRDCHR {{CALLsROCHR TRAP+7 (104407 ) TTY TYPEIN CHARACTER ROUTINE 
SRDLIN {{CALLsRDLIN TRAP+10( 104410) TTY TYPEIN STRING ROUTINE 
SRDOCT {{CALLsRDOCT TRAP-I-U ( 10441 1 ) READ AN OCTAL NUMBER FROM TTY 
WAIT,ON«READY { {CALL=WAITREADY TRAP+l 2 ( 104412) WAIT ON THE READY BIT TO 
WAIT, FOR. XFER | {CALL«WAITXFER TRAP-5'13( 10441 3) WAIT ON XFER REQ, 



TAU BASIC LOGIC TEST (PART J) MAINDEC-1 l^DETAA^C 
DZTAACNEW POWER DOWN AND UP ROUTINES 
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3234 
3235 
3236 
3237 
3238 
3239 
3240 
3241 
3242 
3243 
3244 
3245 
3246 
3247 
3248 
3249 
3250 
3251 
3252 
3253 
3254 
3255 
3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
3267 
3268 
3269 
3270 
3271 
3272 
3273 
3274 
3275 
3276 
3277 
3278 



015406 
0154H 
015422 
015424 
015426 
015430 
015432 
015434 
015436 
015442 
015446 
015454 
015456 



015460 
015466 
015472 
015476 
015502 
015504 
015510 
015512 
015514 
015516 
015520 
015522 
015524 
015532 
015540 
015542 
015544 
015546 
015550 
015552 
015554 
015556 
015560 
015566 



2737 
2737 
0046 
0146 
0246 
0346 
0446 
0546 
7746 
0667 
2737 



015552 000024 
000340 000026 



163476 
000110 
015460 000024 



^SBTTL POWER DOWN AND UP ROUTINES 
iPOWER DOWN ROUTINE 



012737 
016706 
005067 
005267 
001375 
012677 
012605 
012604 
012603 
012602 
012601 
012600 
012737 
012737 
104401 
015560 
012716 
002222 
000002 



015552 
000064 



I POWER 
SPWRUP! 



015406 
000340 



000024 
000026 



000776 



005015 047520 
000122 



$PWRMG! 

SPWRADs 

$ILLUP! 

$SAVR6S 
SPOWERs 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

HALT 

BR 

UP ROUT 
MOV 
MOV 
CLR 
INC 
BNE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TYPE 
.WORD 
MOV 
.WORD 
RTI 
HALT 
BR 



»SILLUP,§#PWRVEC nSET FOR FAST UP 
#340#§#PWRVEC-l-2 JIPRI0J7 



R0,»(SP) 

R1,»(SP) 

R2»-(SP) 

R3,"(SP) 

R4,"tSP) 

R5,"(SP) 

gSWR,-(SP) 

SP,SSAVR6 

#SPWRUP,9#PWRVEC 

,"2 

INE 

»SILLUP»§#PWRVEC 

SSAVR67SP 

SSAVR6 

$SAVR6 

i$ 

CSP)*,©SWR 

CSP)+#R5 

CSP)-$-#R4 

(SP)-l-,R3 

CSP)-I',R2 

CSP)+,R1 

tSP)*»R0 

#$PWRDN,^«PWRVEC 

#340,i#PWRVEC+2 

$POWER 

(PC)+,CSP) 

PWRST 



JJPUSH R0 ON STACK 

11 PUSH Rl ON STACK 

;?PUSH R2 ON STACK 

J J PUSH R3 ON STACK 

llPUSH R4 ON STACK 

jyPUSH R5 ON STACK 

nPUSH PSWR ON STACK 

yjSAVE SP 

jSET UP VECTOR 

jjHANG UP 

nSET FOR FAST DOWN 
irGET SP 

If WAIT LOOP FOR THE TTX 
nWAIT FOR THE INC 
II OF WORD 

llPOP STACK INTO @SWR 
MPOp STACK INTO R5 
nPOP STACK INTO R4 
nPOP STACK INTO R3 
IJPOP STACK INTO R2 
nPOP STACK INTO Rl 
nPOP STACK INTO R0 

fjSET UP THE POWER DOWN VECTOR 
J JPRI0S7 

?REPORT THE POWER FAILURE 
jjPOWER FAIL MESSAGE POINTER 
jjRESTART AT PWRST 
JIRESTART ADDRESS 

J J THE POWER UP SEQUENCE WAS STARTED 
;j BEFORE THE POWER DOWN WAS COMPLETE 
jjPUT THE SP HERE 



.ASCIZ <15><12>''P0WER« 
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3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
3290 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3301 
3302 
3303 
3304 
3305 
3306 
3307 
3308 
3309 
3310 
3311 
3312 
3313 
3314 
3315 
3316 
3317 
3318 
3319 
3320 
3321 
3322 
3323 
3324 
3325 
3326 
3327 
3328 
3329 
3330 
3331 
3332 
3333 
3334 



015570 
015576 
015603 
015610 
015613 
015620 
015623 
015630 
015635 
015642 
015643 
015650 
015652 
015660 
015663 
015670 
015676 
015704 
015712 
015720 
015726 
015731 
015736 
015744 
015752 
015757 
015764 
015772 
016000 
016006 
016014 
016020 
016026 
016034 
016042 
016043 
016050 
016056 
016064 
016070 
016076 
016104 
016105 
016112 
016120 
016124 
016132 
016140 
016141 
016146 
016154 
016162 
016170 
016176 
016204 
016212 



042200 

051450 

015 

037523 

126 

037522 

120 

052111 

124 

000 

040 

000075 

053040 

036522 

040 

044522 

005015 

042531 

052123 

050040 

046505 

042 

021131 

042514 

051440 

042 

043123 

050505 

020042 

042105 

042523 

044124 

047117 

043501 

000 

103 

050040 

047122 

042514 

040504 

047522 

000 

101 

051523 

042514 

041520 

020040 

000 

120 

020040 

020123 

044501 

051104 

041520 

020040 

020040 



044522 042526 

037451 000 

052012 041501 

000 

041505 047524 

000 

044522 051117 

037531 000 

041501 036523 

040524 041104 

041505 047524 



051120 
054524 
045517 
006523 
052101 
047522 
000 
042522 
043040 
020104 
052105 
051124 
051105 
042525 
040506 
052040 
000124 
020105 
020107 
051440 

052517 
052101 
043040 
000104 
040524 
046102 

042104 
043040 
000104 
020040 
040524 

020103 
052040 
020040 
020124 
051505 
020040 
040524 
020040 



047511 
000075 
000077 
000012 
051525 
046102 

042101 
044501 
047524 
000 
047101 
051040 
052123 
046111 
020117 

051127 
046106 
052105 

052116 
042524 
044501 

050040 
046505 

042522 
044501 

020040 
051503 

020040 
041501 
053440 
042101 
000123 
020040 
051503 
054105 



MSGDRVi 

MSGASKs 

MSGVECl 

HSGPRI: 

MTACS; 

MTADB: 

MTAVECS 

MTAPRIS 

MSGOKs 

MYES! 

EMU 



EM10! 

UHll 

DH2! 



,ASCIE 

,ASCIZ 

,ASCIZ 

.ASCIZ 

,ASCIZ 

.ASCIZ 

sASCIZ 

,ASC1Z 

,ASCIZ 
.ASCIZ 
»ASCIZ 



<CRLF>/DRIVE(S)?/ 

<15><12>/TACS?/ 

/VECTOR?/ 

/PRIORITY?/ 

/TACS=/ 

/ TADBs/ 

/ VECTORS/ 

/ PRIORITYs/ 

<15><12>/0K?/ 
/YES/<15><12> 

/STATUS PROBLEM/ 



, ASCIZ /"READY" FAILED TO SET/ 



,ASCIZ /"TRANSFER REQUEST" FAILED TO SET/ 



eASCIE /THE WRONG FLAG SET/ 



«ASCIZ /COUNT PATTERN FAILED/ 



,ASCIZ /DATA PROBLEM/ 



,ASCIZ /ADDRESS FAILED/ 



.ASCIZ /PC TACS/ 



,ASCIZ /PC 



«ASCIE /PC 



TACS WAIT ADDRESS/ 



TACS EXPECT RCV'D/ 
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3335 
3336 
3337 
3338 
3339 
3340 
3341 
3342 
3343 
3344 
3345 
3346 
3347 
3348 
3349 
3350 
3351 
3352 
3353 
3354 
3355 
3356 
3357 
3358 
3359 
3360 
3361 
3362 
3363 
3364 
3365 
3366 
3367 



016220 
016226 
016234 
016242 
016250 
016251 
016256 
016264 

016272 
016300 
016306 
016310 
016316 
016322 
016330 
016336 



016350 
016356 
016364 
016372 
016377 
016404 
016412 
016420 
016422 
016430 
016436 
016437 



042520 
041522 
041520 
020040 
000 
120 



040524 

044501 

047524 

047520 

116 

053111 

044501 

000105 

041520 

020040 

000 

120 

000001 



052103 
023526 
020040 
040524 



020103 
040440 
051523 



001116 
00U26 
001116 
001116 
001116 



001164 
001122 
001206 



016344 001116 000000 



030461 
042514 
051040 
042116 
020117 
020105 
040514 

020040 
040524 



020040 
000104 
020040 DH6I 



020040 DH10: 



020040 040440 042104 

042522 

016272 

001116 001162 

001116 001162 001202 

62 001124 



043040 
020104 
051505 
000 
051104 
053101 
046102 

020040 
051503 



.EVEN 

DTll 

DT2S 



DT6J 

DT10: 

DT201: 

OT202! 

EM201! 



,ASCIE /PC 
.ASCIE /PC 



.WORD $ERRPC»$REG0»0 

.WORD SERRPC#SREG0,SAVPC,0 

.WORD SERRPC»$REG0»$GDDATf $BDDAT»0 

.WORD SERRPC#SREG1#0 

.WORD $ERRPC,SBDADR,0 

.WORD $ERRPC,TACSL,0 

,WORD SERRPCf0 

.ASCIE "TAli FAILED TO RESPOND" 



.ASCIZ "NO DRIVE AVAILABLE" 



.ASCIZ /PC TACS/ 



,ASCIZ /PC/ 
.END 
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ASKADR 


012332 


572 


2494# 






















ASKDRV 


012222 


569 


246H 


2484 




















ASKKEY 


001232 


394# 


659* 


695 




















BEGINX 


001760 


566# 


602 


604 


652 


654 
















BEGINI 


001356 


231 


485« 






















BEGIN2 


001410 


232 


492# 






















BEGIN3 


001416 


233 


491 


494» 




















BEGIN4 


001424 


234 


496# 






















BGNCMN 


001430 


488 


490 


493 


495 


497S 
















BIT0 = 


000001 


166# 
























BIT00 = 


000001 


156# 


166 


208 


956 


1415 


2857 


2859 












BIT01 = 


000002 


155# 


165 


207 


947 


1105 


1106 


1110 


nil 


1119 


1120 


1125 


2859 


BIT02 s 


000004 


154» 


164 


206 


938 


1078 


1079 


1083 


1084 


1092 


1093 


1098 


1402 


BIT03 = 


000010 


153» 


163 


205 


929 


1051 


1052 


1056 


1057 


1065 


1066 


1071 




BIT04 = 


000020 


152« 


162 


204 


920 


1024 


1025 


1029 


1030 


1038 


1039 


1044 




BIT05 = 


000040 


151# 


161 


203 


1161 


1382 


1383 


1386 












BIT06 = 


000100 


150# 


160 


202 


911 


997 


998 


1002 


1003 


1011 


1012 


1017 




8IT07 = 


000200 


i49# 


159 


201 


902 


1362 


1363 


1366 


2857 


2859 








BIT08 = 


000400 


148» 
1441 


158 
2279 


200 


893 


970 


971 


975 


976 


984 


985 


990 


1413 


BIT09 = 


001000 


147« 


157 


199 


1171 


1342 


1343 


1346 


2287 


2351 








BITl = 


000002 


165# 
























BIT10 = 


002000 


146# 


198 


884 


1322 


1323 


1326 


2335 












BITU = 


004000 


145# 


197 


875 


1302 


1303 


1306 


2294 












BIT12 = 


010000 


144» 


196 


1182 


1282 


1283 


1286 














BITU = 


020000 


143« 


195 


1192 


1262 


1263 


1266 


2342 












BIT14 = 


040000 


142» 


194 


866 


1242 


1243 


1246 


2265 












BIT15 = 


100000 


141S 


193 


670 


1202 


1222 


1223 


1226 












BIT2 = 


000004 


164« 
























BIT3 = 


000010 


163S 
























BIT4 = 


000020 


162# 
























BITS = 


000040 


161S 
























BIT6 = 


000100 


160# 
























BIT7 = 


000200 


159# 
























BITS = 


000400 


i58# 
























BIT9 s 


001000 


157» 
























BLKLIM 


013500 


2761» 


2775# 


2782 


2799 


















BPTVECs 


000014 


173§ 
























BSBG = 


000010 


186S 


1486 


1795 


1938 


1945 
















BSFG s 


000006 


185# 


1482 


1780 


1909 


1916 


2738 














BSFGSB 


013336 


241 


2735# 


2736 


2743 


















CHKADR 


002002 


568 


571 


590# 




















CHKDRV 


002062 


628# 
























CKSWR = 


104406 


2264 


2327 


2350 


3228# 


















CR s 


000015 


81# 


2926 


2936 




















CRCERRs 


040000 


194# 
























CRLF s 


000200 


82$ 


554 


2897 


2936 


3279 
















CURDRV 


001234 


395J{ 


688# 


689 




















DDISP = 


177570 


88« 


364 


525 




















DHl 


016124 


416 


3324# 






















DH10 


016251 


458 


3340# 






















DH2 


016141 


422 


428 


434 


3327« 


















DH201 


016422 


465 


3363# 






















DH202 


016437 


470 


3366# 






















DH5 


016176 


440 


452 


3332# 




















DH6 


016234 


446 


3337# 























TAli BASIC LOGIC TEST (PART 1) MAINDEC-1 l^DZTAA-C 
OZTAAC.NEW CROSS REFERENCE TABLE "- USER SYMBOLS 



MACYlt 27(732) ll"JUN«76 15ll5 PAGE 78 



DISPLA 


001142 


DISPRE 


000174 


DRVKEY 


001224 


DRVPNT 


001230 


DSWR = 


177570 


DTI 


016272 


DT10 


016330 


DT2 


016300 


DT20! 


016336 


DT202 


016344 


DT5 


016310 


DT6 


016322 


EMTVECs 


000030 


EMI 


015712 


EM10 


016105 


EM2 


015731 


EM201 


016350 


EM202 


016377 


EM3 


015757 


EH4 


016020 


EMS 


016043 


EM6 


016070 


ERROR = 


100000 


ERRORl 


011516 


ERRVECs 


000004 


EXAM 


013672 


EXIT 


012322 


FGAP s 


004000 


FUNCTIs 


000016 


FUNC0 = 


000002 


FUNCl = 


000004 


FUNC2 = 


000010 


GNS = 


****«« 


GO = 


000001 



GTSWR r 
HERE 
HGHTIM 
HI s 
ILBS = 

INT,ENs 
lOTVECs 
ITEMS2 
LEADERS 

LF = 
LOOP 



104405 
001760 
012072 
000011 
000020 

000100 
000020 
001336 
020000 

000012 
012246 



364# 


525* 


533* 


2308» 


2334« 


















228# 


533 
























392ff 


393 


486* 


628 


641 


662 


693 


2462* 


2467 


2481 


2485 


2831 




393# 


642» 


662* 


679 


694* 


2825 


2832* 














87» 


363 


524 






















417 


3344# 
























459 


3350# 
























423 


429 


435 


3345» 




















466 


3351# 
























471 


3353« 
























441 


453 


3347# 






















447 


3349# 
























176# 


508* 


509* 


731 


732* 


736*^ 


754 


755* 


759* 


777 


778* 


782* 


800 


801*^ 


805» 


823 


824* 


828* 


846 


847* 


851* 












415 


3297# 
























457 


3321S 
























421 


33008 
























464 


3355# 
























469 


3359# 
























427 


3304# 
























433 


3310# 
























439 


3314» 
























445 


451 


3318# 






















193# 


1657 
























732 


755 


778 


801 


824 


847 


2330# 














169# 


522 


523* 


534« 


590» 


596* 


726* 


729* 


738* 


749* 


752» 


761* 


772 


775* 


784* 


795« 


798» 


801^ 


818* 


821* 


830* 


841* 


844* 


853* 


2270 


2271 


2273# 


2276» 












» 












629 


633 


638 


2844# 




















2480 


2485# 
























197# 


























209# 


1424 


1427 


1428 


1437 


1450 


1454 














207# 


209 
























206# 


209 
























205# 


209 
























227 


553 


675 


686 


3221 


3222 


3223 


3224 


3226 


3228 


3229 


3230 


3231 


3232 


3233 
























208» 


303 


306 


325 


328 


707 


1518 


1543 


1566 


1581 


1596 


1625 


1647 


1655 


1674 


1676 


1694 


1722 


1726 


1733 


1750 


1765 


1780 


1795 


1810 


1825 


1841 


1845 


1852 


1876 


1880 


1887 


1905 


1909 


1916 


1934 


1938 


1945 


1963 


1967 


1974 


1992 


1996 


2003 


2040 


2042 


2083 


2085 


2087 


2095 


2097 


2135 


2137 


2140 


2161 


2163 


2166 


2187 


2189 


2192 


2211 


2575 


2578 


2608 


2631 


2663 


2666 


2691 


2697 


2719 


2722 


2738 


2783 


2801 










548 


701 


2753 


2766 


2772 


3226# 
















539 


541 


552 


554# 




















1678 


2404* 


2418# 






















79» 


2895 


2936 






















204# 


1424 


1427 


1428 


1437 


1450 


1454 


2065 


2093 


2104 


2150 


2176 


2202 


2791 


2812 
























202» 


1424 


1427 


1428 


1437 


1450 


1454 














1741? 


506» 


507» 






















462# 


























195* 


1467 


1528 


1553 


1652 


1657 


1696 


1707 


1738 


1863 


1892 


1921 


1950 


1979 


2008 


2580 


2612 


2635 


2668 


2671 


2695 


2699 


2724 


2740 


2862 




80# 


2930 


2936 






















2468# 


2482 
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LOOPl 


000500 


291# 


292 
























L00P2 


000600 


301» 


312 
























L00P3 


000700 


323» 


334 
























MANUAL 


032202 


648 


656« 
























MAXCNT 


012116 


670* 


1678« 


1679* 


1680* 


1681* 


2404 


2425# 


2432 












MSGASK 


015603 


2495 


3281» 
























MSGDRV 


015570 


2461 


32791 
























MSGID 


001732 


542 


554# 


661 






















MSGOK 


015676 


2542 


3295« 
























MSGPRI 


015623 


2518 


3285» 
























HSGVEC 


015613 


2509 


3283# 
























MTACS 


015635 


2530 


3287# 
























MTADB 


015643 


2533 


3289# 
























MTAPFI 


015663 


2539 


3293# 
























MTAVEC 


015652 


2536 


3291# 
























MYES 


015704 


2551 


3296# 
























NEXT 


012302 


2471 


2475 


2479« 






















NOTA 


012260 


2469 


2472# 
























NOTE 


012272 


2473 


2476# 
























NOTLGL 


012314 


2466 


2477 


2483# 


2486 




















NXTDHV 


013626 


2573 


2606 


2629 


2661 


2689 


2717 


2822# 














OFFUNs 


001000 


199# 


2853 
























OK 


002214 


657 


659« 
























PATTRN 


013502 


2762* 


2768* 


2776» 


2789 


2800 


















PIRQ = 


177772 


86# 


























PlRQVEs 


000240 


180# 


























PR0 = 


000000 


103# 


























PRl = 


000040 


104# 


























PR2 = 


000100 


105# 


























PR3 s 


000140 


106# 


























PR4 = 


000200 


1078 


























PR5 = 


000240 


108# 


























PR6 = 


000300 


109« 


























PR7 = 


000340 


110» 


























PS = 


177776 


83» 


84 


665* 






















PSW = 


177776 


84# 


























PWRST 


002222 


66I# 


3271 
























PWRVECs 


000024 


175# 


512* 


513* 


3238* 


3239* 


3248* 


3254* 


3266* 


3267* 










RDBLK 


013546 


2634 


2694 


2799# 






















RDCHR = 


104407 


2543 


3087 


3229# 






















RDLIN s 


104410 


2463 


2951 


3230» 






















RDOCl s 


104411 


2496 


2510 


2519 


3231# 




















RDSUB 


012774 


237 


2624# 


2628 


2636 




















READ = 


000004 


184# 


328 


1478 


1765 


1880 


1887 


2097 


2801 












READY = 


000040 


203« 


304 


311 


326 


333 


708 


1519 


1525 


1544 


1550 


1567 


1582 


1598 






1606 


1627 


1635 


1701 


1727 


1751 


1766 


1781 


1796 


1811 


1826 


1846 


1881 






1910 


1939 


1968 


1997 


2408 


2438 


2576 


2609 


2632 


2664 


2692 


2720 


2785 






2803 


2849 
























RESVECs 


000010 


170# 


























REWINDS 


000016 


189# 


303 


325 


707 


1498 


1518 


1566 


1596 


1647 


1674 


1694 


1722 


1841 






1876 


1905 


1934 


1963 


1992 


2040 


2083 


2095 


2135 


2161 


2187 


2211 


2575 






2608 


2631 


2663 


2691 


2719 


















RGPBLK 


013156 


239 


2684# 


2688 


2696 


2700 


















SAVPC 


001202 


384i 


2405* 


2406* 


2422 


2433* 


2434* 


2450 


3345 












SAVPS 


001204 


385# 


2407* 


2421 


2435* 


2449 


















SETBUF 


013370 


2600 


2655 


2749» 























TAll BASIC LOGIC TEST (PART 15 MAINDEC^l 1»DZTAA"C 
DETAAC^NEW CROSS REFERENCE TABLE »» USER SYMBOLS 



MACYU 27(732) il"JUN»76 ISliS PAGE 80 



SFBG s 000014 

SFFG s 000012 

SFFGSB 013252 

STACK s 00U00 



START 




002234 


STKLMTs 


177774 


SWR 




001140 


SWREG 




000176 


sm 


s 


000001 


SW00 


s 


000001 


SW01 


s 


000002 


sm2 


s 


000004 


SW03 




000010 


SW04 




000020 


SW0S 




000040 


SW06 




000100 


SW07 




000200 


SW08 




000400 


SW09 




001000 


swi 




000002 


SWI0 




002000 


swu 




004000 


SW12 




0t0000 


SWi3 




020000 


SW14 




040000 


SW15 




100000 


SW2 




000004 


SW3 




000010 


SW4 




000020 


SW5 




000040 


SW6 




000100 


SW7 




000200 


SH8 


s 


000400 


SW9 


s 


001000 


TACSH 




001210 


TACSL 




001206 


TADBH 




001214 


TADBL 




001212 


TAPRIC 




001222 


TAVEC 




001216 


TBITVE 


s 


000014 


TDRV 




002366 


TIMERRs 


002000 


TKVEC 


= 


000060 


TPVEC 


s 


000064 


TRAPVE 


s 


000034 


TRTVEC 


s 


000014 


TP«REC 


s 


000200 


TSTi 




002514 


TST10 




003316 


fST10g 




007070 


TST101 




007132 



i88# 

187# 
240 
74# 
2712 
660 

85S 
291 
2294 
2859 
229# 
138« 
128$ 
127# 
126# 
125# 
124# 
123il 
i22# 
I2i« 
120# 
1191? 
137S 
11S# 
117« 

Ii6« 
U5I 
114S 
113« 
I36# 
135« 
134# 
133# 
132« 
131# 
130# 
129# 
387# 
386» 
3351 
389f^ 
388# 
391» 
390« 
171« 
681 

ig8« 

178# 

179^ 

177« 

172# 

201# 

705 

867 

1782 

1797 



1494 

1490 

2712# 

504 



309 
2335 
2984 

532 

138 
137 
136 
135 
134 
133 
132 
131 
130 
129 



819^ 
592 

842» 

667 

2529* 

489 

683« 



723# 

872# 

1789# 

1804# 



1825 

1810 

2716 

725 



1996 2003 2697 

1967 1974 2722 
2727 

748 771 794 



663# 2245 



363# 
2342 
3021* 

546 



502 524«^ 

2347 2351 

3246 3259# 

699 2751 



825 
666 

848 
2503* 
2540 

663* 



1403» 
2501* 



2507# 
2507 



526 
2751 



532«^ 
2755 



546 
2757 



699 
2764 



2265 
2768 



2279 
2770 



2281 
2822 



2287 
2857 



1415 

2504 



2508i* 
2534 



1427* 
2531 



2570 
2517» 



2504* 
2569 



2603 
2537 



2505* 
2602 



2657 
2686 



2685 2713 2844 
2714 
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TST102 


007174 


1812 


1819# 


TST103 


007236 


1827 


1834S 


TST104 


007370 


1837 


1864 1869# 


TST105 


007504 


1872 


1893 1898S 


TST106 


007620 


1901 


1922 1927# 


TST107 


007734 


1930 


1951 1956# 


TSTli 


003340 


876 


88i» 


TST110 


010050 


1959 


1980 1985# 


TSTIU 


010164 


1988 


2009 2014S 


TSTU2 


010224 


2033# 




TST113 


010374 


2036 


2071 2076# 


TST114 


010534 


2079 


2112# 


TST115 


010554 


2116 


212!# 


TSTU6 


010570 


2124 


2129# 


TST117 


010674 


21558 




TSTi2 


003362 


885 


890S 


TST120 


011000 


2181# 




TST121 


0II102 


2207# 




TST13 


003404 


894 


899» 


TSTi4 


003426 


903 


908# 


TSTI5 


003450 


912 


917# 


TST16 


003472 


921 


926# 


TST17 


003514 


930 


935§ 


TST2 


002610 


746Sf 




TST20 


003536 


939 


944# 


TST21 


003560 


948 


953# 


TST22 


003602 


957 


969# 


TST23 


003634 


977 


982# 


TST24 


003672 


991 


996S 


TST25 


003724 


1004 


1009# 


TST26 


003762 


1018 


1023« 


TST27 


004014 


1031 


1036# 


TST3 


002704 


769# 




TST30 


004052 


1045 


1050# 


TST31 


004104 


1058 


1063S 


TST32 


004142 


1072 


1077# 


TST33 


004174 


1085 


1090# 


TST34 


004232 


1099 


li04# 


TST35 


004264 


1112 


U17# 


TST36 


004322 


1126 


1131# 


TST37 


004370 


1132 


1157S 


TST4 


003000 


792# 




TST40 


004414 


1162 


11671? 


TST4I 


004440 


1172 


1177S 


TST42 


004470 


1183 


U88» 


TST43 


004514 


1193 


1198# 


TST44 


004540 


1203 


1216# 


TST45 


004606 


1228 


1236# 


fST46 


004654 


1248 


1256# 


TST47 


004722 


1268 


1276# 


TST5 


003074 


81S# 




TST50 


004770 


1288 


1296# 


TST51 


005036 


1308 


1316# 


TST52 


005104 


1328 


1336# 


TSf5 3 


005152 


1348 


1356» 


fST54 


005220 


1368 


1376# 
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TST55 


00S266 


TST56 


005320 


TST57 


005352 


fST6 


003174 


TST60 


005412 


fST61 


005450 


TST62 


005506 


TST63 


005642 


TST64 


005742 


TST65 


006042 


TST66 


006104 


TST67 


006146 


TST7 


003274 


TST70 


006236 


TST7! 


006332 


TST72 


006424 


TST73 


006504 


TST74 


006606 


TST75 


006722 


TST76 


006764 


TST77 


007026 


TYPE = 


104401 


TYPERR 


011676 


TYPOC - 


104402 


fYPON = 


104404 


TYPOS s 


104403 


UNIT s 


000400 


WAITREs 


104412 



WAITXFs 


104413 


WAIT,F 


012120 


WAIT.O 


012014 


WAITl 


012044 


WAIT2 


012064 


5^AIT3 


012100 


l^AIT4 


012062 


WFG s 


000000 


WFGSU8 


012622 


WGBLOP 


013060 


WGPBLK 


013054 


WLOOP 


012712 


WRITE = 


000002 


WRTBLK 


013504 


WRTLOCs 


010000 


WRTSUB 


012706 


SAUTOB 


001U4 


SBDADR 


001122 



1388 


i399# 
























1405 


1410# 
























1416 


142i# 
























838# 


























1422 


1429 


1434# 






















1435 


1442 


i447# 






















1448 


1455 


1465# 






















1500 


1510# 
























1514 


1529 


1535^ 






















1539 


1554 


1560# 






















1568 


1575* 
























1583 


1590« 
























863§ 


























1618# 


























1621 


1636 


1641# 






















1644 


1668# 
























1671 


i689» 
























1715# 


























1718 


1739 


1744# 






















1752 


1759# 
























1767 


1774# 
























542 


661 


673 


684 


689 


690 


2235 


2337 


2345 


2367 


2376 


2378 


2381 


2383 


2387 


2395 


2461 


2483 


2495 


2509 


2518 


2530 


2533 


2536 


2539 


2542 


2549 


2551 


2900 


2995 


2996 


2999 


3012 


3023 


3042 


3091 


3094 


3098 


3173 


3221# 


3268 
























2344 


2367# 
























2392 


2532 


2535 


2538 


2541 


2998 


32228 














3224# 


























3223# 


























200# 


682 


1424 


1437 


1450 


1454 


2828 


2848 












1565 


1580 


1595 


1609 


1624 


1648 


1656 


1675 


1677 


1695 


1711 


1721 


1723 


1734 


1749 


1764 


1779 


1794 


1809 


1824 


1840 


1842 


1859 


1875 


1877 


1888 


1904 


1906 


1917 


1933 


1935 


1946 


1962 


1964 


1975 


1991 


1993 


2004 


2023 


2039 


2041 


2043 


2069 


2082 


2084 


2086 


2094 


2096 


2108 


2136 


2138 


2151 


2162 


2164 


2177 


2188 


2190 


2203 


2212 


2579 


2667 


2698 


2723 


2739 


2792 


2813 


3232» 
























2064 


2088 


2090 


2092 


2098 


2103 


2141 


2143 


2167 


2169 


2193 


2195 


2784 


2802 


3233# 
























2430# 


3233 
























2402# 


3232 
























2408» 


2416 


2419 






















2403« 


2415# 
























2409 


2413 


2421» 






















2411 


2414# 
























182^ 


1470 


1543 


1581 


1625 


1655 


1676 


1726 


1733 


2042 


2085 


2137 


2163 


2189 


2578 


2666 






















235 


2568# 


2572 


2583 




















2656# 


2660 


2674 






















238 


2655il 
























2601# 


2605 


2615 






















183» 


306 


1181 


1474 


1750 


1845 


1852 


2046 


2087 


2140 


2166 


2192 


2783 


2611 


2670 


27828 






















19b# 


2855 
























236 


2600S 
























360# 


550* 


2992 


3113 




















355s 


733* 


756* 


779^* 


802* 


825* 


848* 


3350 
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SBDDAT 


001126 


357# 


2331* 


3347 






















SBELL 


001172 


379» 


2337 


2363 






















SCHARC 


014212 


2902* 


2912* 


2919 


2928* 


2933# 


















SCKSj*R 


014320 


2984# 


3228 
























SCMTAG 


001100 


343» 


499 


500 


508 


514 


515 


516 














SCMI = 


000002 


375» 


376# 


3778 






















$CM2 = 


000004 


375S 


376# 


377# 






















$CM3 ~ 


000002 


373» 


375 
























gCNTLG 


015045 


2995 


3108# 
























SCNTLU 


015040 


3012 


3107# 
























SCRLF 


001177 


381» 


690 


2345 


2363 


2367 


2378 


2383 


2387 


2901 


2936 


3023 


3107 




SDOAGN 


011210 


2231 


2237 


2243« 






















SENDAD 


0U200 


540 


605 


655 


2239« 


2358 


















SENDCT 


01U60 


514 


2233# 
























SENDMG 


011217 


2235 


2247# 
























SENULL 


011214 


2246S 


























SEOP 


01U24 


737 


760 


783 


806 


829 


852 


2223# 














SEOPCT 


01U52 


514^* 


22308 


2234 






















SERFLG 


001103 


3468 


2254 


2283 


2285 


2291* 


2312 


2332* 


2363 












SERMAX 


001115 


352# 


517* 


2285 


2307* 


2312 


















SERROR 


011504 


508 


23261^ 
























SERRPC 


001U6 


3538 


2339* 


2340* 


2341 


2363 


3344 


3345 


3347 


3349 


3350 


3351 


3353 




SERRTB 


001236 


410# 


2374 
























SERTTL 


001112 


350« 


2338» 


2363 






















SESCAP 


001 170 


378# 


516» 


1132» 


1422* 


1435* 


1448* 


1514* 


1539* 


1592* 


1621* 


1644* 


1691* 


1710* 






1718* 


1837* 


1872* 


1901» 


1930* 


1959* 


1988® 


2036* 


2079* 


2132* 


2158* 


2184* 


2306* 






2354 


2356 


2363 






















$FILLC 


001156 


3718 


2905 


2936 






















SFILLS 


001155 


370# 


2936 
























SGDADR 


001120 


354# 


























SGDDAT 


001124 


356» 


2330* 


3347 






















SGET42 


011170 


2236# 


























SGTSWR 


014370 


2996« 


3226 
























SHD s 


000000 


11 


























SHIOCT 


014316 


2968* 


2973# 
























SICNT 


001104 


347# 


2298* 


2299 


2301* 


2311 


















SILLUP 


015552 


3238 


3254 


3273# 






















SINTAG 


00U35 


361# 


3024 


3113 






















SITEMB 


001U4 


35U 


2341* 


2363 


2369 




















SLF 


001200 


382# 


2363 


2936 


3098 


3107 


















gLPADR 


001 106 


348# 


518* 


864* 


873* 


882* 


891® 


900* 


909* 


9i8# 


927* 


936* 


945* 


954* 






1158» 


U68« 


1178* 


1189* 


1199* 


1217* 


1237* 


1257* 


1277* 


1297* 


1317* 


1337* 


1357* 






1377» 


1400» 


1411* 


1512* 


1537* 


1620* 


1643* 


1717* 


1836* 


1871* 


1900* 


1929* 


1958* 






1987* 


2016* 


2035* 


2078* 


2113* 


2131* 


2157* 


2183* 


2289* 


2304* 


2309 


2311 




SLPERR 


001110 


349# 


519» 


2289 


2305* 


2311 


2353 


2572* 


2605* 


2628* 


2660* 


2688* 


2716* 


2736* 


SMAIL = 


a'»e«J«» U 


536 


546 


2304 


2347 


2889 


















SMNEW 


015063 


2999 


3111« 
























SMSWR 


015052 


2996 


3109)? 
























$MXCNT 


011502 


2302 


23U# 
























SNULL 


001154 


369# 


2907 


2936 






















SNWTSTs 


000001 


720# 


743« 


766S 


789# 


812tJ 


835# 


860# 


869# 


878« 


887# 


896S 


905# 


914# 






923« 


932# 


94l# 


950# 


966# 


979# 


993# 


1006# 


1020# 


1033» 


1047# 


1060# 


10741 






1087« 


1101# 


U14« 


1128S 


1154« 


U64# 


1174» 


U85# 


1195# 


1213# 


1233# 


1253» 


1273# 






1293# 


1313# 


1333» 


1353# 


1373# 


i396# 


1407# 


t4l8» 


143l# 


1444# 


1462# 


1507# 


1532# 






1557# 


1572» 


1587# 


1615# 


1638# 


16651 


1686# 


1712# 


1741# 


i756# 


1771# 


1786« 


180l# 






1816# 


18311 


1866# 


1895# 


1924S 


1953S 


1982# 


2011# 


2030# 


2073# 


2109# 


2ll8« 


2126# 
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2152S 


2178# 


2204# 






















SOCNT 


015316 


3145* 


3174* 


31871 






















SOMODE 


015320 


3140» 


3144* 


3149 


3152* 


3163* 


3189# 
















SOVER 


011466 


2266 


2282 


2290 


2300 


2308# 


















SPASS 


001100 


344# 


668 


1670 


2227* 


2228* 


2246 


2296 


2312 












SPOWEF 


015560 


3269 


3276# 
























SPWRAD 


015546 


3271« 


























SPWRDN 


015406 


512 


3238# 


3266 






















SPWRMG 


015542 


3269# 


























SPWRUP 


015460 


3248 


3254# 
























SQUES 


001176 


380# 


2363 


2483 


2549 


2936 


3042 


3091 


3107 












SRDCHR 


014602 


3055# 


3229 
























SRDDEC= 


*»»«»«■ U 


3232 


























SRDLIN 


014722 


3083# 


3230 
























SRDOCT 


014216 


2946# 


3231 
























SRDSZ = 


000010 


3076# 


























$REGAD 


001160 


373# 


























SREG0 


001162 


375S 


2328* 


3344 


3345 


3347 


















SREGl 


001164 


376# 


2329* 


3349 






















SRTNAD 


011212 


2245# 


























SR2A = 


»*»»»» u 


3232 


























SSAVREs 


«■»»»«» u 


3232 


























SSAVR6 


015556 


3247* 


3255 


3256* 


3257* 


3275# 


















SSCOPE 


011232 


506 


2263# 
























SSETUPs 


000137 


485# 
2264 


505 
2327 


506 
2350 


508 
2358 


510 
2979 


512 
3113 


514 


515 


516 


518 


540 


543 


2225 


SSTUP = 


177777 


485# 


























SSVLAD 


011440 


2274 


2303« 
























SSWR s 


167400 


1# 


11 


62 


63 


64 


65 


66 


67 


68 


377 


378 


379 


515 






516 


518 


519 


724 


747 


770 


793 


816 


839 


864 


873 


882 


891 






900 


909 


918 


927 


936 


945 


954 


970 


983 


997 


1010 


1024 


1037 






1051 


1064 


1078 


1091 


1105 


U18 


1132 


1158 


1168 


1178 


1189 


1199 


1217 






1237 


1257 


1277 


1297 


1317 


1337 


1357 


1377 


1400 


1411 


1422 


1435 


1448 






1466 


1511 


1536 


1561 


1576 


1591 


1619 


1642 


1669 


1690 


1716 


1745 


1760 






1775 


1790 


1805 


1820 


1835 


1870 


1899 


1928 


1957 


1986 


2015 


2034 


2077 






2113 


2122 


2130 


2156 


2182 


2208 


2218 


2226 


2238 


2244 


2246 


2255 


2256 






2257 


2258 


2259 


2265 


2277 


2279 


2280 


2283 


2284 


2285 


2292 


2293 


2294 






2305 


2308 


2311 


2318 


2319 


2320 


2321 


2322 


2335 


2342 


2347 


2351 


2363 






3272 


























SSt^PMKs 


000000 


68 


69 


2259 


2260 


2281 


















STIMES 


001166 


377# 


515* 


724* 


747* 


770* 


793* 


816* 


839* 


983* 


1010* 


1037* 


1064* 


1091* 






1118* 


1511* 


1536* 


1561* 


1576* 


1591* 


1619* 


1642* 


1669* 


1690* 


1716* 


1745* 


1760* 






1775* 


1790* 


1805* 


1820* 


1835* 


1870* 


1899* 


1928* 


1957* 


1986* 


2015* 


2034* 


2077* 






2130* 


2156* 


2182* 


2208* 


2226* 


2292* 


2299 


2302* 


2311 










$TKB 


001146 


366# 


2977 


2988 


3005 


3059 


3065 
















STKS 


001144 


365# 


2977 


2986 


3002 


3026* 


3057 


3063 














STN = 


000122 


H 


U 


720 


724« 


743 


747# 


766 


770# 


789 


793# 


812 


816# 


835 






839s 


860 


864# 


867 


869 


873# 


876 


878 


882# 


885 


887 


891» 


894 






896 


900» 


903 


905 


909# 


912 


914 


918!» 


921 


923 


927lf 


930 


932 






936# 


939 


941 


945S 


948 


950 


954# 


957 


966 


970» 


977 


979 


983# 






991 


993 


997S 


1004 


1006 


1010# 


1018 


1020 


1024# 


1031 


1033 


1037» 


1045 






1047 


1051S 


1058 


1060 


1064# 


1072 


1074 


1078# 


1085 


1087 


1091# 


1099 


1101 






1105# 


1112 


1114 


1118» 


1126 


1128 


1132# 


1154 


1158# 


1162 


1164 


1168» 


1172 






1174 


1178» 


1183 


1185 


1189» 


1193 


1195 


11998 


1203 


1213 


1217» 


1228 


1233 






1237» 


1248 


1253 


1257# 


1268 


1273 


1277# 


1288 


1293 


i297# 


1308 


1313 


1317# 






1328 


1333 


1337# 


1348 


1353 


1357# 


1368 


1373 


1377S 


1388 


1396 


1400# 


1405 



TAU BASIC LOGIC TEST (PART 1) 
DZTAAC.NEW CROS, 



STPB 


001152 


STPFLG 


001157 


STPS 


001150 


STRAP 


015322 


$TRAP2 


015344 


STRP = 


000014 


STRPAD 


015356 


$TSTNM 


001102 


STTYIN 


015030 


STYPBN= 


*»»«»«■ u 


STYPDSs 


»»»»«»■ u 


STYPE 


013776 


STYPEC 


014146 


STYPEX 


014214 


STYPOC 


015120 


STYPON 


015134 


STYPOS 


015074 


SXTSTR 


011244 


$SGET4s 


000000 


$0FILL 


015317 


S40CATS 


#»«»»4J U 


9 - 


016442 



RT 1) 


MAINDEC-U-DETAA 


»C 




MACYU 


27(732) 


U"JUN» 


76 15:15 


PAGE 


85 




SEQ 009 


ERENCE 


TABLE "- USER SYMBOLS 




















1407 


1411# 


1416 


1418 


1422« 


1429 


1431 


1435# 


1442 


1444 


1448» 


1455 


1462 


1466# 


1500 


1507 


1511# 


1514 


1529 


1532 


15368 


1539 


1554 


1557 


1561# 


1568 


1572 


1576# 


1583 


1587 


159l» 


1615 


1619S 


1621 


1636 


1638 


1642# 


1644 


1665 


1669# 


1671 


1686 


1690# 


1712 


1716» 


1718 


1739 


1741 


1745# 


1752 


1756 


17603 


1767 


1771 


17758 


1782 


1786 


1790# 


1797 


1801 


1805» 


1812 


1816 


1820# 


1827 


1831 


18358 


1837 


1864 


1866 


1870# 


1872 


1893 


1895 


1899» 


1901 


1922 


1924 


1928# 


1930 


1951 


1953 


1957# 


1959 


1980 


1982 


1986# 


1988 


2009 


2011 


2015** 


2030 


2034# 


2036 


2071 


2073 


2077# 


2079 


2109 


2113# 


2116 


2118 


2122^ 


2124 


2126 


2130# 


2152 


2156S 


2178 


2182# 


2204 


2208# 












368« 


2925* 


2936 






















372# 


2883 


2936 






















367K 


2923 


2936 






















510 


3198# 
























3209# 


3220 
























3213# 


3222# 


3223# 


3224S 


3225# 


3226 


32271 


3228 


3229# 


3230# 


3231« 


3232# 


3233# 


3234# 


























3203 


3220# 
























345# 


677* 


2225* 


2254 


2281 


2303* 


2308 


2312 


2334 


2363 








3084 


3085 


3102 


3106# 




















3225 


























3225 


























2883# 


3213 


3221 






















2904 


2911 


2918 


2923# 


2924 


3028 
















2929 


2931 


2934# 






















3143# 


3222 
























3142 


3145» 


3224 






















3138S 


3223 
























2268# 


























2238» 


























3139* 


3143* 


3153 


3188# 




















2265 


2344 
























223# 


2278 


289# 


299# 


32l# 


342# 


383 


503 


518 


519 


554« 


676« 


687# 


1659 


2246 


2249 


2311 


2312 


2363 


2398# 


2936 


2977 


3106S 


3107 


3113 


3250 


3274 


3343# 

























ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED; 



*TAAC,TAAC/SOL/CRF:SYM=DZTAAC.NEW 
RUN»TIME! 58 48 3 SECONDS 
RUN-TIME RATIOS 283/111=2,5 
CORE USED? 26K (51 PAGES) 



